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PREFACE 


This report describes the design, development, and tests of the Advanced 
Microwave Precipitation Radiometer (AMPR) operating in the 10 to 85 GHz range 
specifically for precipitation retrieval and mesoscale storm system studies from a 
high altitude aircraft platform (i.e., ER-2). The primary goals of AMPR is the 
exploitation of the scattering signal of precipitation at frequencies near 10, 19, 37, 
and 85 GHz together to unambiguously retrieve precipitation and storm structure 
and intensity information in support of proposed and planned space sensors in 
geostationary and low earth orbit, as well as storm-related field experiments. 

The development of AMPR will have an important impact on the interpreta- 
tion of microwave radiances for rain retrievals over both land and ocean for the 
following reasons: 

(1) A g innin g instrument, such as AMPR, will allow the unambiguous 
detection and analysis of features in two dimensional space, allowing 
an improved interpretation of signals in terms of cloud features, and 
microphysical and radiative processes; 

(2) AMPR will offer more accurate comparisons with ground-based radar 
data by feature matching since the navigation of the ER-2 platform can 
be expected to drift 3 to 4 km per hour of flight time; and, 

(3) AMPR will allow un derflights of the SSM/I satellite instrument with 
enough spatial coverage at the same frequencies to make meaningful 
comparisons of the data for precipitation studies. 
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INTRODUCTION 


Scattering-induced brightness temperature depressions trom precipitation are 
strong enough in the millimeter wave region to provide a meaningful contrast with 
the radiometrioally warm land background. Higher frequencies (37 GHz and above) 
yield greater cloud penetration because of less sensitivity to small non-precipitatmg 
ice. Lower frequencies (18 GHz and below) when used with the higher frequency 
channels allow an unambiguous separation of the rain signal from wet ground and 
water bodies, because the emissivity decreases with frequency for precipitation 
(volume scattered while the emissivity increases with frequency for water (emis- 

sive surface). 

Figure 1 provides evidence of how different frequencies of radiation might 
respond to different heights within a rain system. As the frequency decreases, the 
depth in the cloud from which most of the information is obtained increases. For 
precipitation measurements, one would like the response to be from a level as 
close to the ground as possible. However, the brightness temperature contrast 
between rain and the warm land background is small at such a low level. At the 
other extreme (highest frequency), the contrast temperature between the storm and 
land background is very strong; but it is not likely well related to the precipitation 
rate near the surface. Therefore, it is advantageous to select an intermediate 
frequency (such as 37 GHz) that has a relative strong signal due to attenuation by 
precipitation, and is still responsive to processes from deep enough in the cloud to 

be well related to rain rate. 

Figure 1 suggests a need for an instrument to cover the frequency range of 
10 to 85 GHz in order to investigate and better understand the scattering effects of 
precipitation on the convective scale. In addition, a suitable high altitude version 
of this instrument would impact the design requirements for. and the data analysis 
from, future proposed spaceborne instruments. These issues were the primary 
justifications for the development of the Advanced Microwave Precipitation 
Radiometer (AMPR). Table 1 summarizes the key technical issues of the AMPR 
which were addressed during the course of this program. 
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Figure 1 . Response(Weighting) Function for Severe Storm 
(Multiple Frequencies vs Altitude) 



TABLE 1. ADVANCED MICROWAVE PRECIPITATION RADIOMETER (AMPR) 
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TECHNICAL DISCUSSION 


Figure 2 provides a pictorial of the AMPR system technical parameters which 
were considered during the initial design phase of the program. Design experiences 
gained from an earlier NASA radiometer program, i.e. the Advanced Microwave 
Moisture Sounder (AMMS), were incorporated into the development of the AMPR 
instrument. Each of the subsystems illustrated in Figure 2 are fully described in this 

section. 

RF SYSTEM 

The initial design study included an investigation into using the SMMR feedhorn 
rather than the SSM/I design. The SMMR offered the potential for ten channels in the 
6.6 to 37 GHz region, i.e. five frequencies with dual orthogonal polarization at each 
frequency. However a decision by the sponsor to include 85.5 GHz as the highest 
frequency channel complicated the antenna design because a folding mirror was 
required to fold the optics in the lower frequency bands and to pass the 85.5 GHz 
band through the mirror. Further investigations revealed that insufficient space was 
available in the ER-2 HI Camp hatch to locate the 45° folding mirror between the horn 
and the illuminating lens. 

At this point the antenna design effort was redirected toward implementing the 
SSM/I multifrequency feedhorn with a lens designed to obtain the desirable spatial 
resolution. Since the SSM/I MFFH included the higher frequency band, then the 
antenna design was more easily achievable within the size constraints of the ER-2 
hatch. A separate horn/lens design was required for the lowest band of 10.7 GHz 
because the SSM/I feedhorn’s lowest frequency band is 19.35 GHz. 

It was necessary to design a dual lens antenna capable of fitting within the 
hatch such that the sum of the lenses diameters did not exceed 1 5 inches, which was 
the maximum opening available in the hatch bottom. Setting D 1t equal to the 10.7 
GHz lens diameter and D 2 equal to the MFFH lens diameter and assuming that the 
spatial resolutions at 10.7 and 19.35 GHz are designed to be identical, then 


4 




z DC , 

0?05 
E < cc yj 

iso ' 0 
eg 


j 








tr o 



.■« & fc .3 

$ O CD D -Q 

wccnoc 



i C/5 
I C/5 


I|! 

as § 

Si 

k_ o 



g 

0 - 


5 


Figure 2. Advanced Microwave Precipitation Radiometer (AM PR) 
System Parameters 




Dj + D 2 = 15.0 in. 


or 



£^=15.0 in. 


tor A, = 28.04 mm (10.7 GHz band) 

311(1 A 2 = 15.50 mm (19.35 GHz band). 

Therefore D a = 9.7 in. and D 2 = 5.3 in. for the 10.7 GHz lens antenna aperture and 
the SSM/I MFFH lens antenna aperture, respectively. Table 2 summarizes the 
spatial resolution for each of the four frequency bands assuming an aircraft altitude 

of 20 km or 65,600 ft. 

A major design issue for the RF system was a determination of the sensitivi- 
ty required to achieve a minimum temperature resolution (AT mta ) of 1.0K as speci- 
fied by the sponsor. It can be shown that the total power radiometer s sensitivity 

(F dB ) is given by. 


= 10 log 




This assumes that the radiometer’s antenna temperature (T A ) is equal to the 
ambient temperature (TJ and that the system’s normalized gain variation is 
negligible. Table 3 summarizes the required sensitivity for each of the four chan- 
nels assuming a maximum temperature resolution of 1.0K. 

The sensitivity goals given in Table 3 are based on a maximum temperature 
resolution of 1.0K. By achieving lower sensitivity levels, the resolution is improved 
beyond the system specification. Figure 3 is a block diagram of the AMPR RF 
system for each of the four frequency bands. Table 4 summarizes the receiver 
sensitivity for each channel based on measurements performed during the test 
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TABLE 2. AMPR SPATIAL RESOLUTION FOR D B EQUAL TO 
THE ALONG TRACK BEAMSPOT DIAMETER 




10.70 

19.35 

37.10 

85.50 


0.139 

0.139 

0.074 

0.032 


2,780 

2,780 

1,480 

640 


Note 1. d M B (radians) = 1.222 A/D, for D — antenna diameter and 
A = signal wavelength. 

Note 2. D b = 0 3dB x aircraft altitude, for aircraft altitude = 20 km. 
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TABLE 3. AMPR SENSITIVITY REQUIREMENTS FOR 
AT mln = IK AND T a = 300K 




10.70 

100 

50 

19.35 

240 

50 

37.10 

900 

50 

85.50 

1400 

50 



8.7 

10.6 

13.5 

14.4 


Note 1. IF BW specified per SSM/I requirements. 

Note 2. Integ. time based on ER-2 altitude of 20 km, aircraft speed of 
500 mph, and scan angle of ± 45° and contiguous imaging at 
85.5 GHz. 
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L.O. 

Figure 3. AMPR RF System Block Diagram. 











TABLE 4. AMPR TEMPERATURE RESOLUTION ACHIEVED 
FOR F dB MEASUREMENTS 



Sensitivity 

tiannel (GHz) 

F dB 

—ratio 

10.70 

3.4 

2.188 

19.35 

5.8 

3.802 

37.10 

5.6 

3.631 

85.50 

6.9 

4.898 


IF Bw (p In MHz) AT mln _(2Q 

100 0.30 

240 0.35 

900 0.20 

1400 0.23 


Note 1. 
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ambient temperature = 300K 
50 ms 

nominal gain variation = 0.01% 
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phase of the program. It can be shown that for a maximum gain variation of 0.05%, 
(easily achievable with current component technology) a minimum temperature 
resolution of 0.44K occurs at 10.7 GHz and a maximum temperature resolution of 
0.76K occurs at 85.5 GHz. 


SCANNER SYSTEM 

The geometry for the AMPR scanner is depicted in Figure 4. In this configu- 
ration the AMPR scanning cycle begins at 315°, maps through the nadir (downward 
looking) view, and finishes at 45°. Upon command, the scanner’s metal reflector 
swings up to view each of the two calibration loads for a designated period of time. 
The scan routine is designed to accelerate the reflector between the end scan point 
and the point at which the beam initially intersects the hot calibration load. At 
that point the reflector is made to decelerate to a complete stop at the center of the 
hot calibration load. This routine is repeated for the cold calibration load. 

Figure 5 is a pictorial view of the AMPR scanner mounted in the ER-2 HI- 
CAMP hatch with the extended fiberglass fairing as shown. The 15.50 inch 
dimension represents the rotating elliptical reflector’s major axis. A maximum scan 
extent of ± 40.59° about nadir is available. Figure 6 is a side looking view of the 
AMPR showing the SSM/I feedhorn (upper) and the 10.7 GHz feedhorn (lower). 

Dual calibration loads situated above the scanner are provided for calibration. 

Figure 7 shows the scanner system block diagram. A scanner processor is 
incorporated into the system to provide flexibility in the operation of the AMPR 
imager. The scanner processor is based on the Motorola MC68HC705C8 micro- 
controller. This single chip micro handles system timing, scanner control, encoder 
feedback, data interface, and system diagnostics. Appendix A provides the 
complete software source code for the AMPR scanner processor. Table 5 shows 
the various scanner modes that can be selected by turning a thumbwheel switch 
located in the AMPR power and signal distribution box. Table 6 shows the 
different menu options available when operating in mode 0. The interactive nature 
of mode 0 requires that an RS-232 device be attached to the AMPR serial (DCE) 
port. 
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Hot Calib. Cold Calib. 

Load Load 



0 ° 

Nadir 

View 


Note: Above start & stop scan positions do not 
provide totally unobstructed view of scene 
below aircraft. 

Figure 4. Scan / Calibration Geometry for AMPR Instrument. 
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Figure 5. AMPR/HI-CAMP Hatch End View With Calibration 
Loads Above 
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Figure 6. AMPR Radiometer Section Looking to Starboard 
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FIGURE 7. SCANNER SYSTEM BLOCK DIAGRAM 
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TABLE 5. DESCRIPTION OF SCANNER PROCESSOR MODES 


Mode Number 
0 
1 
2 

3 

4 

5 

6 

7 

8 
9 
A 
B 
C 
D 
E 
F 


Description 
Monitor mode 

Scan mode- 4 scans/calibrate, CCW retrace 
Scan mode; 6 scans/calibrate, CCW retrace 
Scan mode; 8 scans/calibrate, CCW retrace 
Scan mode; 10 scans/calibrate, CCW retrace 
Scan mode; 12 scans/calibrate, CCW retrace 
Scan mode; 14 scans/calibrate, CCW retrace 
Scan mode; 16 scans/calibrate, CCW retrace 
Scan mode; 4 scans/calibrate, CW retrace 
Scan mode; 6 scans/calibrate, CW retrace 
Scan mode; 8 scans/calibrate, CW retrace 
Scan mode; 10 scans/calibrate, CW retrace 
Take data in stare mode 
1 kHz on port "A" bit 7 of microcontroller 
Stepper motor test diagnostic 
Port "A" test mode 
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TABLE 6. DESCRIPTION OF MODE 0 MENU OPTIONS 


Mnrie 0 Menu Option 
A 
C 
D 
E 
G 
H 
I 
L 
M 
N 
P 
R 
S 
V 
W 
X 
? 


Description 

Perform one "n" scans/calibrate cycle 
Move scan reflector to cold, load 
Toggle motor direction bit (CW/CCW) 

Read encoder data continuously 

Get data for current scanner location 

Move scan reflector to hot load 

Toggle integrate/dump bit (dump/integrate) 

List AMPR status 

Set exit mode: 0-F (hex) 

Set number (n) of scans per calibrate: 0-F (hex) 
Take step; report position 
Return to encoder index position 
Toggle sample/hold bit (sample/hold) 

Toggle data valid bit (low/high) 

Toggle windings bit (on/off) 

Exit to next mode 
Monitor command menu 
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J .TPtR ATTON SYSTEM 

The AMPR calibration loads are required to operate over the frequency range 
of 10.7 to 85.5 GHz to insure absolute temperature data at the four distinct AMPR 
RF channels. The lowest frequency channel at 10.7 GHz requires a highly emissive 
RF load with sufficient depth to insure that the longer wavelength (28 mm or 1.1 
in.) signal is fully absorbed by the near perfect black body load. At the other 
extreme, the highest frequency channel at 85.5 GHz requires that the load material 
be conductive enough to insure that the physical temperature is approximately 
unif orm over the full depth of the load material. 

The material for the calibration loads was obtained from Emerson & Cuming 
under the designation "Eccosorb UHP-2-NRC" with a specified return loss exceeding 
40 dB (c greater than 0.9999) up to a maximum frequency of 93 GHz. Under this 
condition the calibration load radiometric temperature (T B ) is given by. 

T K = (1 - e) T B + f T p 

for T b = background temperature which illu m i na tes load 

and T p = calibration load physical temperature. 

Assuming that the minimum observed temperature (T B ) is 10K and the maximum 
physical load temperature (T p ) is 350K for the hot load, then 

T H = (0.0001) (10K) + (0.9999) (350K) 

= 349.966K. 

Therefore the calibration load radiometric temperature (T R ) very nearly equals the 
physical temperature (T P ) which implies a nearly perfect black body calibration 

load. 

Figure 8 is a photograph of the calibration loads without the low loss 
insulating foam cover (view a) and with the foam cover installed (view b). The hot 
load temperature of 320K is implemented using dc heater strips mounted on the 
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metal back plate used to support the RF absorber material. The cold load is 
implemented using an inlet hose connected to outside air (about 233K at 20 km 
altitude). A ram air scoop is provided on the ER-2 fairing for connection to the cold 
load. The RF loss of the insulating cover used on each load is specified to be less 

than 0.1 dB over the full frequency range. 

Figure 9 shows the calibration system block diagram. Monitor circuitry 
measures thermistors mounted in both the hot and cold calibration loads. The 
seven thermistors mounted in the hot load (Model # 44201) are accurate to within 
± ,15°C over the range from 0° to 100°C while the seven thermistors mounted in the 
cold load (Model # 44212) are accurate to within ± .1°C over the range from -50°C 
to 50°C. Thermistor placement within each load is shown in Figures 10 and 11. 
Figure 10 also shows the placement of the two dc heater stnps. The hot load 
temperature is controlled by using one of the hot load thermistors to feed back and 
compare to a reference set point. A pulse width modulation technique is then 
employed based on this temperature comparison to drive current through the dc 
heaters. As shown in Figure 9, cold and hot load temperature multiplexers take 
the conditioned thermistor temperatures and make them available based on the 
channel select lines input from the MSFC data acquisition system. The channel 
designations are given in Table 7. 

Figure 12 illustrates the absolute temperature accuracy of the AMPR using 
the hot and cold c alib ration loads described above. A hot load temperature of 
+37°C (310K) and a cold load temperature of -43°C (230K) are used in the curves of 
Figure 12. The curve with a AT mln value of 0.4K represents the 19.35 GHz AMPR 
data channel and the curve with a AT mln value of 0.2K represents the 37.10 GHz 
AMPR data chann el For example, if the radiometer unknown temperature is 100K, 
then the AMPR measurement will be accurate within ± 2. IK at 19.35 GHz and 
within ± 1.3K at 37.1 GHz. The 10.7 GHz and 85.5 GHz AMPR data channels fall in 
between these two curves. Table 8 summarizes the AMPR absolute temperature 
accuracy range for an unknown scene temperature. 
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hot calibration 

LOAD 

(SEE FIGURE 10) 



HOT LOAD 
TEMPERATURE 
MONITOR/CONTROLLER 
(A801 3/007) 



HOT LOAD 
TEMPERATURE 
MULTIPLEXER 
(A80 13/009) 



TEMPERATURE 

BREAKOUT 

BOX 

(A801 3/011) 
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COLD CALIBRATION 
LOAD 

(SEE FIGURE 11) 



COLD LOAD 
TEMPERATURE 
MONITOR 
(A80 13/006) 



COLD LOAD 
TEMPERATURE 
MULTIPLEXER 
(A80 13/008) 


FIGURE 9. CALIBRATION SYSTEM BLOCK DIAGRAM 
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TABLE 7. TEMPERATURE MULTIPLEXER CHANNEL DESIGNATIONS 


Channel No. 
0 ( 0000 ) 
1 ( 0001 ) 
2 ( 0010 ) 
3(0011) 
4(0100) 
5(0101) 
6 ( 0110 ) 
7(0111) 
8 ( 1000 ) 
9(1001) 
10 ( 1010 ) 
11 ( 1011 ) 


Hot Load 
Thermistor #1 
Thermistor #2 
Thermistor #4 
Thermistor #5 
Thermistor #6 
Thermistor #7 
Thermistor #8 
Not used 
Not used 
Not used 
Not used 
Not used 


Coi q L oad 
Thermistor #1 
Thermistor #2 
Thermistor #3 
Thermistor #4 
Thermistor #5 
Thermistor #6 
Thermistor #7 
Not used 
Not used 
Not used 
Not used 
Not used 
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Figure 12. AMPR Absolute Temperature Inaccuracy (ATy) 
Goals For Hot Calibration Load (T H ) of 31 OK And 
Cold Calibration Load (T c ) of 230K 




TABLE 8. 


Note 1. 
Note 2. 


AMPR ABSOLUTE TEMPERATURE INACCURACY (ATJ PERFORMANCE 
SUMMARY FOR UNKNOWN SCENE TEMPERATURE (T u ) 


T U (K) 


± AT U (K) For AMPR Channel 
19.35 GHz 37.10 GHz 


10 

3.3 

2.0 

20 

3.1 

1.9 

40 

2.9 

1.7 

80 

2.4 

1.4 

100 

2.1 

1.3 

140 

1.6 

1.0 

200 

0.9 

0.5 

230 (T C qld) 

0.5 

0.3 

300 

0.5 

0.3 

310 (T HO t) 

0.5 

0.3 

340 

0.9 

0.5 

400 

1.6 

1.0 


10.7 and 85.5 GHz channels fall in between above 
range for each T u value. 

Example: At T u = 100K, 

AT U = ± 1.7K for 10.7 GHz channel 
and AT U = ± 1.4K for 85.5 GHz channel. 
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VIDEO PROCESSOR SYSTEM 

The AMPR video processor system consists of the post detection circuitry 
and the interface circuitry to the data acquisition system (provided by MSFC). The 
primary design criteria as regards the interface circuitry was to insure that the 
AMPR operated as a stand-alone system. This design approach insured that AMPR 
does not depend on the data acquisition system for control or handshaking informa- 
tion that might affect a critical operation, such as the scanner t imin g. A secondary 
design goal for the interface system was insuring that the data transfer between 
AMPR and the data acquisition system would be simple and repeatable. 

The post detection circuitry for the AMPR consists of the video amplifier 
which amplifies the radiometer’s square law detector output, the integrate and 
dump circuit which integrates the video amplifier output, and the sample and hold 
circuit which maintains the data output until the data acquisition system samples 
the AMPR data. The AMPR interface provides a data valid signed which alerts the 
data acquisition system that the analog data is valid and ready for sampling. 

Figure 13 is the AMPR video processor block diagram (a) and the tuning dia- 
gram (b) for the integrate/dump, sample/hold, and the data valid signals. 

MECHANICAL PACKAGING 

The AMPR system consists of two packages, i.e. the radiometer unit and the 
power supply unit. The radiometer package includes the scanner, calibration loads, 
RF front-end, and video processing subsystems. The power supply unit contains 
all the power supplies required to operate the radiometer, the power conditioning 
interface to the aircraft power distribution unit, and the interface circuitry to the 
data acquisition system. Figure 14 is a photograph of the power supply unit 
package designed to adapt to the existing aircraft rack located in the ER-2 upper Q- 
Bay compartment. Table 9 indicates the system power supply designations for 
each unit supply used in the AMPR. The seven multi-pin connectors are the 
connections between the power supply unit and the radiometer package (four 
cables), the data acquisition system (two cables), and the aircraft power distribu- 
tion unit (one cable). A removable cover is shown in the photograph and is used to 
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(b) Timing Diagram 

FIGURE 13. AMPR VIDEO PROCESSOR SYSTEM 

28 


ANALOG 

OUTPUTS 

TO 

DATA 

ACQUISITION 

SYSTEM 






BLACK AN 


\ 


TABLE 9. POWER SUPPLY MONITOR MULTIPLEXER CHANNEL DESIGNATIONS 


Channel No. 

Mux A OutDut 

Mux B OutDut 

0(0000) 

37.1 GHz bias (+4.0 V) 


1(0001) 

85.5 GHz bias (+5.4 V) 


2(0010) 

19.35 GHz bias (+7.0 V) 


3(0011) 

Analog supply + ( + 10 V) 


4(0100) 

Analog supply - (-10 V) 


5(0101) 

Not used 


6(0110) 

Not used 


7(0111) 

Not used 


8(1000) 


Digital supply + (+5V) 

9(1001) 


Scanner supply + (+9.3 V) 

10(1010) 


Temperature supply + (+10 V) 

11(1011) 


Temperature supply - (-10 V) 

12(1100) 


Not used 

13(1101) 


Not used 

14(1110) 


Not used 

15(1111) 


Not used 


30 



protect the internal power supplies during shipment and aircraft installation. The 
cover is removed during aircraft flights to reduce the internal temperature caused 
by heat generated by the power supplies. 

Figure 15 is a photograph of the AMPR radiometer package as viewed from 
the RF front-end. View (a) depicts the radiometer with RF cover installed and view 
(b) shows the RF cover removed. The cover is lined with RF absorber material to 
improve system immunity to outside RF signal interference. Figure 16 is another 
view of the AMPR package as seen from the scanner end of the radiometer. This 
view depicts the elliptical reflector used to scan across the dual lens antenna. The 
hot and cold calibration loads are shown in the lower part of the photograph with 
low loss foam covers. View (a) shows the scanner cover installed while view (b) 
shows the cover removed. 


AMPR TEST RESULTS 

AMPR testing included subsystem, as well as, system tests following final 
assembly. Subsystem tests performed included: antenna pattern measurements on 
the 10.7 GHz antenna feedhorn/lens unit and the SSM/I multifrequency 
feedhorn/lens unit at the Georgia Tech Cobb County Facility antenna range; system 
noise figure measurements on each of the four receiver channels using the Y-factor 
test method; scanner routine tests using microstepping design techniques; and, 
temperature monitoring of the hot and cold calibration loads as well as temperature 
control of the hot load. 

Figure 17 is an antenna range profile of the Georgia Tech Cobb County 
Facility which was used to perform AMPR antenna pattern measurements. This 
range facility offered minimum interference from ground reflections because of the 
natural terrain between the transmit and receive towers. Because of the rigidity of 
the towers and low ground reflection, accurate measurements of sidelobe levels, 
cross-polarization data, and mainbeam efficiency were obtained. 

Antenna pattern measurements were performed at all frequencies for E- 
plane, H-plane, and diagonal plane cuts. These cuts represent the H polarization, 

V polarization, and 45° polarization plots for the antenna. When situated on the 
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Figure 15 .AMPR Package As Viewed From RF Front-End Assembly 
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with Transmit (XMT) and Receive (RCV) Towers 




ER-2 hatch, the H polarization is equivalent to looking out the right side of the 
aircraft, the V polarization is equivalent to looking out the left side of the aircraft, 
and the 45° or diagonal plane is equivalent to looking straight down (nadir view). 
Figure 18 provides a view of the AMPR antenna located on the range receive tower 
(shown in foreground) with the transmitter tower shown in background. View (a) 
represents the H polarization position while view (b) represents the V polarization 
positions. The 45° polarization position (not shown in Figure 18) would be between 
the H & V position, i.e. straight up and down on the receive tower. 

Table 10 summarizes the AMPR antenna subsystem performance based on 
the pattern measurements performed at the Cobb County Facility. The mainbeam 
efficiency represents the amount of power (in %) contained within the first null 
points. The sidelobe efficiency can be converted to sidelobe level, i.e. 0.20% 
efficiency means that the sidelobe level is -27 dB down from the peak power 
output. The cross polarization efficiency level of 0.40% means that the input cross- 
pol data is -24 dB down at the co-pol output port. 

The 19.35, 37.10, and 85.5 GHz channels are generated using the multi- 
frequency feedhorn (MFFH) designed and built by Microwave Engineering Corpora- 
tion. The AMPR MFFH is a replica of the antenna presently onboard the SSM/I 
spaceborne sensor. 

The AMPR receiver sensitivity was measured for each of the four data 
channels using the Y-factor method. Figure 19 is a block diagram for the test set- 
up used to measure the noise figure (F dB ) for each channel. The test method 
consists of measuring the video output of each channel under two conditions, i.e. 
viewing an ambient load (290K) and viewing a liquid nitrogen load (100K). The F^ 
value is given by: 
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(a) AM PR Positioned for H Polarization (b) AM PR Positioned for V Polarization 

(Right Side of Aircraft) (Left Side of Aircraft) 

Figure 18. AMPR Antenna Subsystem During Pattern Measurements 



TABLE 10. AMPR ANTENNA PERFORMANCE LEVELS 


CH (OHs) 

Antenna 
Sidelobe (%) 

Cross 

Polarization (%1 

Mainbeam 

Fffjpianov f%l (Note 1) 

10.7 

0.20 

0.20 

97.8 

19.35 

0.30 

1.60 

98.7 

37.0 

0.20 

0.40 

98.8 

92.5 (Note 2) 

5.70 

1.40 

93.2 


Note 1. Mainbeam efficiency data represents average of E, H, and 
45° planes at each frequency and each attenuation level. 

Note 2. Test equipment malfunctioning at 85.5 GHz caused increase 
in operating frequency to 92.5 GHz. 
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FIGURE 19. Y-Factor Method for Measuring System Noise Figure. 





= 10 log 


V ' 

v HOT 

V =r v , 

v HOT COLD) 


1.8 dB 


for Th OT = 290K and T COLD = 100K. 

The measurements were performed in order to determine the temperature sensitivi- 
ty of each AMPR channel. Table 11 summarizes the AT mln values for each channel 
based on the noise figure data. The sensitivity values are based on a system gain 
variation (AG/G) of 0.01% minimum to 0.05% maximum. In either case, the AMPR 
temperature sensitivities are less than 1.0K for all four data channels as required 
per NASA’s specifications. Appendix B is a set of schematics for the electronic 
modules used in the AMPR system. Appendix C is a set of data sheets for vendor 
supplied items used in the AMPR. This appendix also includes a list of critical 
items recommended as spare parts for the AMPR. 

The AMPR/Data Acquisition System is designed to be flown onboard the ER- 
2 research aircraft in the Q-bay compartment. The radiometer instrument is 
mounted in the HI-CAMP hatch which is located in the lower Q-bay section. The 
AMPR power supply package and the data acquisition system are each mounted in 
standard equipment racks located in the upper Q-bay section of the ER-2. Figure 
20 is a cable diagram which shows the interconnection between the two AMPR 
packages, the aircraft input power cable (Jl), and the two output cables (J6 and 
P7) to the MSFC data acquisition system. Cabling between the upper and lower Q- 
bay compartments is fed through the ER-2 bulkhead. Appendix D describes the 
AMPR cable interconnections including pin designations. 

Figure 21 is a power schematic which shows the distribution of aircraft 
power to the AMPR radiometer. Power to the data acquisition system is routed 
through the AMPR power supplies package as shown. The ER-2 cockpit panel has 
two switches available for power/control of the AMPR system. The "AMPR ON" 
switch energizes the power relay internal to the AMPR power supply package. 

This results in aircraft power applied to the radiometer as indicated by the "AMPR 
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TABLE 11. AMPR AT mto MEASUREMENTS 


Channel 

F«y. 


P 

(GHz) 

(F dB) 


(MHz) 

10.7 

2.042 (3.1) 


100 

19.35 

3.548 (5.5) 


240 

37.1 

3.388 (5.3) 


900 

85.5 

3.631 (5.6) 


1400 

Note 1. 

= T 0 f\ 

[i + 

ml 


Note 2. 0.01% < < 0.05%, for ^ 


AT mln (K) 

^2 = 0.05% ^2 = 0.01% 

3L 


0.40 

0.27 

0.59 

0.31 

0.51 

0.18 

0.54 

0.16 


, for T o = 290 JiT (ambient) 
and r = 50 ms (integ. time) 

= nominal system gain variation 
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Figure 20. AMPR/ER-2 Cable Interconnect Diagram 










ER-2 Power Distribution AMPR Power Distribution 
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Pilot Control (Cockpit) 1 J1 - Bendix Part No: PT06CE-22-21S-8934 (Cable End) 

Figure 21. AMPR / ER-2 Power Interconnect Diagram 



ON" light in the cockpit. In addition, the MSFC Reset lines (J7/F and J7/G) are 
disconnected as shown in the power schematic. The second cockpit switch, "RCDR 
ON," is used to energize the recorder relay internal to the AMPR power supply 
package. This results in aircraft power applied to the data acquisition system 
through pins J7/B and J7/D. A control signal (J7/A) from the data acquisition 
system is used to turn on the "RCDR ON" lamp inside the cockpit. Two additional 
control lines (J7/H and J7/J) are used to turn on the "AMPR FAIL" or "RCDR FAIL" 
lamps if either the radiometer or the data acquisition system have problems. The 
data acquisition system can be reset by turning off the "AMPR ON" power switch. 
This causes the MSFC Reset lines to stay common until the AMPR power is turned 
on again. Notice that the pilot can remove all power to the system by using the 
"STANDBY POWER" switch located in the cockpit. 
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APPENDIX A 

AMPR SCANNER PROCESSOR ASSEMBLY CODE 
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Tue May 1 1990 00:30 


Page 1 


AMPR 


2500 A.D. 6805 Macro Assembler - Version 4.02b 


Input Filename : AMPR. ASM 
Output Filename : AMPR.obj 


1 NAM AMPR 

2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 
13 


************************************************************************** 
* EQUATES 


I/O REGISTERS 


_ 14 

15 

16 
17 

— 18 

19 

20 


AMPR SCANNER PROCESSOR ASSEMBLY CODE 

THE SCANNER PROCESSOR CONTROLS THE RADIOMETER REFLECTOR 
STEPPER MOTOR (THROUGH A MICROSTEP SEQUENCER) TO IMPLEMENT 
SEVERAL SCAN MODES. OUTPUT TIMING SIGNALS ARE PROVIDED FOR 
RADIOMETER DATA ACQUISITION AND REFLECTOR POSITION ACQUISITION. 
IN ADDITION, AN INTERACTIVE DIAGNOSTIC MODE IS PROVIDED 
THROUGH THE SERIAL COMMUNICATIONS INTERFACE OF THE MOTOROLA 
THE MC68HC705C8 SINGLE CHIP MICROCONTROLLER. 


— 21 

22 0000 PORTA EQU S0000 POSITION DATA OUT 

23 0001 PORTB EQU $0001 ANALOG DATA HANDSHAKING 

24 0002 PORTC EQU $0002 ENCODER POSITION IN 

— 25 0003 PORTD EQU $0003 DTR IN; SERIAL PORT 

26 0004 DDRA EQU $0004 DIRECTION REGISTER 

27 0005 DDRB EQU $0005 

28 0006 DDRC EQU $0006 

29 OOOA SPCR EQU $OOOA SPI CONTROL REGISTER 

30 OOOD BAUD EQU $000D BAUD RATE REGISTER 

31 OOOE SCCR1 EQU $000E SCI CONTROL REGISTER 1 

_ 32 000 F SCCR2 EQU $000F SCI CONTROL REGISTER 2 

33 0010 SCSR EQU $0010 SC! STATUS REGISTER 

34 0011 SCI EQU $0011 SCI DATA REGISTER 

35 0012 TCR EQU $0012 TIMER CONTROL REGISTER 

— 36 0013 TSR EQU $0013 TIMER STATUS REGISTER 

37 0014 ICRH EQU $0014 INPUT CAPTURE REGISTER HIGH 

38 0015 ICRL EQU $0015 INPUT CAPTURE REGISTER LOW 

_ 39 0016 OCRH EQU $0016 OUTPUT COMPARE REGISTER HIGH 

40 0017 OCRL EQU $0017 OUTPUT COMPARE REGISTER LOW 

41 0018 HCOUNT EQU $0018 TIMER HIGH BYTE 

42 0019 LCOUNT EQU $0019 TIMER LOW BYTE 

— 43 001A ALTH EQU $001A COUNTER ALT REGISTER HIGH 

44 001B ALTL EQU $001B COUNTER ALT REGISTER LOW 

45 001C EPROG EQU $001C EPROM PROGRAM REGISTER (HC705C8) 

_ 46 0010 COPRR EQU $001D COP (WATCHDOG) RESET REGISTER 

47 001 E COPCR EQU $001E COP CONTROL REGISTER 
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48 






49 






50 


* 


REGISTER BIT DEFINITIONS 

51 






52 


* 


PORT A AT $0000 IS AN OUTPUT PORT. USED TO OUTPUT 

53 


★ 

AN 8 

BIT REFLECTOR POSITION VALUE 

54 


* 




55 






56 


★ 


PORT B 

AT $0001 

57 






58 

0007 

TEST 

EQU 

7 

OUT; GENERAL TEST /DIAGNOSTIC BIT 

59 

0006 

VAL 

EQU 

6 

OUT; DATA VALID WHEN HIGH 

60 

0006 

NVAL 

EQU 

6 

DATA NOT GUARANTEED WHEN LOW 

61 

0005 

SMPL 

EQU 

5 

OUT; HIGH TO SAMPLE 

62 

0005 

HOLD 

EQU 

5 

LOW TO HOLD 

63 

0004 

INT 

EQU 

4 

OUT; HIGH TO INTEGRATE 

64 

0004 

DUMP 

EQU 

4 

LOW TO DUMP 

65 

0003 

AWO 

EQU 

3 

OUT; ALL WINDINGS OFF WHEN LOW 

66 

0002 

CW 

EQU 

2 

OUT; CLOCKWISE WHEN HIGH 

67 

0002 

CCW 

EQU 

2 

COUNTERCLOCKWISE WHEN LOW 

68 

0001 

OE 

EQU 

1 

OUT; HP CHIP LOW ENABLE 

69 

0000 

HBYTE 

EQU 

0 

OUT; SELECT HP HIGH BYTE WHEN LOW 

70 

0000 

LBYTE 

EQU 

0 

SELECT HP LOW BYTE WHEN HIGH 

71 






72 


* 


PORT C AT $0002 IS AN INPUT PORT. USED TO READ THE 

73 


* 

"ABSOLUTE” POSITION OF 

THE STEPPER MOTOR FROM THE SHAFT ENCODER 

74 


* 

AND THE HP ENCODER INTERFACE CHIP. THE HP CHIP INCREASES 

75 


* 

RESOLUTION BY A FACTOR 

OF 4, WHICH MUST BE DEALT WITH. AS WELL 

76 


* 

AS A CONVERSION FROM TWOS COMPLEMENT TO UNSIGNED BINARY. THE 

77 


* 

DATA 

FROM THE HP CHIP 

IS BASE 0, MEANING THAT WHEN THE MOTOR IS 

78 


* 

POSITIONED AT THE ENCODER INDEX, THE DATA FROM THE HP CHIP IS 0. 

79 


* 

VARIABLE POS IS BASE 1 

(RANGE IS 1-200), AS IS THE DATA OUTPUT 

80 


* 

TO PORT A. THE VALUE ; 

ZERO HAS BEEN RESERVED TO INDICATE A 

81 


* 

START 

OR RESTART. 


82 


* 




83 






84 


* 


PORT D 

AT $0003 

85 






86 

0007 

DTR 

EQU 

7 

IN; DTR ASSERTED WHEN LOW 

87 






88 


* 



BIT 6 DOES NOT EXIST 

89 


* 



BITS 5-2 HAVE A THUMBWHEEL SWITCH ATTACHED 

90 


* 



BITS 1-0 ARE USED IN THE SCI 

91 






92 


* 


SCI SC SR 

AT $0010 

93 






94 

0007 

TDRE 

EQU 

7 

TRANSMIT DATA REGISTER EMPTY FLAG 

95 

0005 

RDRF 

EQU 

5 

RECEIVE DATA REGISTER FULL FLAG 

96 






97 


* 


TIMER CONTROL REGISTER 

98 






99 

0007 

IC IE 

EQU 

7 

INPUT CAPTURE INTERRUPT ENABLE 

100 

0006 

OCIE 

EQU 

6 

OUTPUT COMPARE INTERRUPT ENABLE 

101 

0005 

TOIE 

EQU 

5 * 

TIMER OVERFLOW INTERRUPT ENABLE 

102 

0001 

IEDG 

EQU 

1 

INPUT CAPTURE EDGE; 1-POSITIVE 

103 

0000 

OLVL 

EQU 

0 

THIS BIT PULSES STEPPER MOTOR 

104 
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105 


* 


TIMER 

STATUS REGISTER 

106 







107 

0007 

ICF 

EQU 

7 


INPUT CAPTURE FLAG 

108 

0006 

OCF 

EQU 

6 


OUTPUT COMPARE FLAG 

109 

0005 

TOF 

EQU 

5 


TIMER OVERFLOW FLAG 

110 

0000 






111 


★ 


MEMORY 

MAP 


112 







113 

0020 

ZROM 

EQU 

$0020 


48 BYTES IN PAGE ZERO 

114 

0050 

RAM 

EQU 

$0050 


176 BYTES IN PAGE ZERO 

115 

0100 

ROM 

EQU 

$0100 


MAIN ROM BEGINS AT PAGE ONE 

116 

1FDF 

OPTION 

EQU 

$ 1 FDF 


RAM/EPROM OPTION REGISTER 

117 

1FF4 

VECTOR 

EQU 

$1FF4 


BEGINNING OF VECTORS 

118 







119 


* 


OPTION 

REGISTER 

(RAM) 

120 







121 

0007 

RAMO 

EQU 

7 


RAM/EPROM AT $20-$4F 

122 

0006 

RAMI 

EQU 

6 


RAM/EPROM AT $100-$15F 

123 

0001 

IRQL 

EQU 

1 


IRQ EDGE & LEVEL OR E ONLY 

124 







125 


* 


"FLAG” 

RAM VARIABLE 

126 







127 

0007 

INDEX 

EQU 

7 


INDEX TRANSITION? 1=YES 

128 

0006 

HS 

EQU 

6 


FAST TABLE? 0=$0100; 1=$0300 

129 

0001 

ODD 

EQU 

1 


ODD # STEPS? 1=YES 

130 

0000 

RT 

EQU 

0 


DIRECTION OF RETRACE; 1=CW 

131 







132 







133 


* 


MISCELLANEOUS 


134 







135 

OOOD 

CR 

EQU 

$00 


CARRIAGE RETURN 

136 

OOOA 

LF 

EQU 

$0A 


LINE FEED 

137 

0003 

ETX 

EQU 

$03 


END OF TEXT 

138 

0007 

BEL 

EQU 

$07 


BELL 

139 

001B 

ESC 

EQU 

$1B 


ESCAPE 

140 
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141 

0000 







.ABSOLUTE 


142 











143 







******* 

********************** ***************************************** 

144 







★ 


MODE 0 

SUBROUTINE JUMP TABLE OFFSETS 

145 







* 




146 











147 

0020 







ORG 

ZROM 

PAGE ZERO ROM 

148 











149 

0020 

01 

00 

04 

07 

OA 

OFFSET 

FCB 

1.0,4,7,10 

OFFSETS FOR MODE 0 JUMPS 

150 

0025 

00 

0D 

10 

13 00 


FCB 

0,13.16,19,0 


151 

002A 

00 

16 

19 

1C 

00 


FCB 

0,22,25,28,0 


152 

002 F 

IF 

00 

22 

25 

00 


FCB 

31,0,34,37,0 


153 

0034 

00 28 

2B 00 

00 


FCB 

0,40,43,0,0,0 



0039 

00 









154 











155 







*********************************************************************** 

156 







* 


RAM 


157 







* 




158 











159 

0050 







ORG 

RAM 

112 USER BYTES AVAILABLE 

160 











161 

0050 






POS 

RMB 

1 

ABSOLUTE MOTOR POSITION (1-200) 

162 

0051 






SCANS 

RMB 

1 

# SCANS BETWEEN CALIBRATES (n) 

163 

0052 






SCANUM 

RMB 

1 

CURRENT SCAN NUMBER (O-(n-l)) 

164 

0053 






EOS 

RMB 

1 

END OF SCAN; 1 PAST LAST SCAN POS 

165 

0054 






XMODE 

RMB 

1 

NEXT MODE AFTER MONITOR MODE 

166 

0055 






ALOOP 

RMB 

1 

ACQ10 LOOP COUNTER 

167 

0056 






WTEMP 

RMB 

1 

WAIT ROUTINE SCRATCH VARIABLE 

168 

0057 






RTEMP 

RMB 

1 

RLOOP ROUTINE SCRATCH VARIABLE 

169 

0058 






MSTEP 

RMB 

1 

STEP ROUTINE uSTEP DELAY 

170 

0059 






GSTEP 

RMB 

1 

FAKE SCAN POSITION COUNTER FOR GSUB 

171 

005A 






MSC 

RMB 

1 

MICROSTEP COUNTER 

172 

005B 






MPREV 

RMB 

1 

"PREVIOUS" DIST. TO DEST. 

173 

005C 






FLAG 

RMB 

1 

SEE EQUATES 

174 

005D 






DEST 

RMB 

1 

DESTINATION OF MOVE 

175 

005E 






FUDGE 

RMB 

1 

CORRECTION FACTOR 

176 

005F 






RLEN 

RMB 

1 

# BYTES OF RAMP USED 

177 

0060 






A1 

RMB 

1 

FOR PRESERVING A 

178 

0061 






A2 

RMB 

1 


179 

0062 






A3 

RMB 

1 


180 

0063 






A4 

RMB 

1 


181 

0064 






XI 

RMB 

1 

FOR PRESERVING X 

182 

0065 






X2 

RMB 

1 


183 

0066 






X3 

RMB 

1 


184 

0067 






X4 

RMB 

1 


185 

0068 






LFETCH 

RMB 

4 

LDA ?TABLE+1,X & RTS 

186 

006C 






HFETCH 

RMB 

4 

LDA ? TABLE ,X & RTS 

187 
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188 0070 

189 

190 0100 

191 

192 

193 

194 

195 

196 


197 

0100 

0106 

198 

010C 

0112 

199 

0118 
01 IE 

200 

0124 

012A 

201 

0130 

0136 

202 

013C 

0142 

203 

0148 

014E 

204 

0154 

015A 

205 

0160 

0166 

206 

016C 

0172 

207 

0178 

017E 

208 

0184 

018A 

209 

0190 

0196 

210 

019C 

01A2 

211 

01A8 

01AE 

212 

01B4 
01 BA 

213 

01C0 

01C6 

214 

01CC 

01D2 

215 

01D8 

01DE 

216 

01E4 

01EA 

217 

01F0 

01F6 


218 

219 


.RELATIVE 
ORG ROM 






MICROSTEP DELAY TABLES: S=Kt~X 


K= 25000 X* 3 TA= 5000 


09C4 4A64 0C2E FTABIE 

FDB 

2500,19044. 3118, 2482, 2096. 1832 

09B2 0830 0728 
0666 05D1 0559 

FDB 

1638, 

1489, 1369, 1271, 1189, 1119 

04F7 04A5 045F 
0423 03EE 03BF 

FDB 

1059, 

1006, 959, 917, 880, 846 

0395 0370 034E 
032F 0313 02F9 

FDB 

815, 

787, 761, 737, 715, 695 

02E1 02CB 02B7 
02A4 0292 0281 

FDB 

676, 

658, 641, 626, 611, 597 

0272 0263 0255 
0248 023C 0230 

FDB 

584, 

572, 560, 549, 538. 528 

0225 021A 0210 
0206 01 FD 01 F4 

FDB 

518, 

509, 500, 491, 483, 476 

01EB 01E3 0 1DC 
01D4 01CD 01C6 

FDB 

468, 

461, 454, 447, 441, 435 

01BF 01B9 01B3 
01AD 01A7 01A1 

FDB 

429, 

423, 417, 412, 407, 401 

019C 0197 0191 
018D 0188 0183 

FDB 

397, 

392, 387. 383, 378, 374 

017F 017A 0176 
0172 016E 016A 

FDB 

370, 

366, 362, 358, 354, 351 

0166 0162 015F 
015B 0158 0154 

FDB 

347, 

344, 340, 337, 334, 331 

0151 014E 014B 
0148 0145 0142 

FDB 

328, 

325, 322, 319, 316, 314 

013F 013C 013A 
0137 0134 0132 

FDB 

311, 

308, 306, 303, 301, 298 

012F 012D 012A 
0128 0126 0123 

FDB 

296, 

294. 291, 289. 287. 285 

0121 0 1 1 F 01 ID 
011B 0119 0117 

FDB 

283, 

281, 279, 277, 275, 273 

0115 0113 0111 
010F 010D 010B 

FDB 

271, 

269, 267, 265, 264, 262 

0109 0108 0106 
0104 0103 0101 

FDB 

260, 

259, 257, 255, 254, 252 

OOFF OOFE OOFC 
OOFB 00F9 00F8 

FDB 

251, 

249, 248. 246, 245, 243 

00F6 00F5 00F3 
00F2 OOFO OOEF 

FDB 

242, 

240, 239, 238, 236, 235 

OOEE OOEC OOEB 
OOEA OOEA OOEA 

FDB 

234, 

234, 234, 234, 234, 234 

OOEA OOEA OOEA 

PAG 
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220 

221 

222 

223 

0200 


ORG 

* 

ROM+$OlOO 
K= 5000 

X= 3 

TA= 

1000 


224 

0200 

0206 

01F4 8FB6 14D3 
1094 0E00 0C3D 

CTABLE FDB 

500,36790, 

5331, 4244, 

3584, 

3133 

225 

020C 

0212 

OAF2 09F2 0926 
087E 07F2 077A 

FDB 

2802, 

2546, 

2342, 2174, 

2034, 

1914 

226 

0218 

021E 

0712 06B8 0667 
0620 05E0 05A6 

FDB 

1810, 

1720, 

1639, 1568, 

1504, 

1446 

227 

0224 

022A 

0572 0542 0515 
04ED 04C7 04A4 

FDB 

1394, 

1346, 

1301, 

1261, 

1223, 

1188 

228 

0230 

0236 

0484 0465 0449 
042E 0415 03FD 

FDB 

1156, 

1125, 

1097, 

1070, 

1045, 

1021 

229 

023C 

0242 

03E6 03D1 03BO 
03AA 0398 0386 

FDB 

998, 

977, 

957, 

938, 

920, 

902 

230 

0248 

024E 

0376 0366 0357 
0348 033A 032D 

FDB 

886, 

870, 

855, 

840, 

826, 

813 

231 

0254 

025A 

0320 0314 0308 
02FD 02F2 02E7 

FDB 

800, 

788, 

776, 

765, 

754, 

743 

232 

0260 

0266 

02DD 02D3 02C9 
02C0 02B7 02AE 

FDB 

733, 

723. 

713, 

704, 

695, 

686 

233 

026C 

0272 

02A6 029E 0296 
028E 0287 0280 

FDB 

678, 

670, 

662, 

654, 

647, 

640 

234 

0278 

027E 

0278 0272 026B 
0264 025E 0258 

FDB 

632, 

626, 

619, 

612, 

606, 

600 

235 

0284 

028A 

0252 024C 0246 
0241 023B 0236 

FDB 

594, 

588, 

582, 

577, 

571, 

566 

236 

0290 

0296 

0231 022B 0227 
0222 021D 0218 

FDB 

561, 

555, 

551, 

546, 

541, 

536 

237 

029C 

02A2 

0214 020F 020B 
0207 0202 01FE 

FDB 

532, 

527, 

523, 

519, 

514, 

510 

238 

02A8 

02AE 

01EA 01F6 01F2 
01EF 01EB 01E7 

FDB 

506, 

502, 

498, 

495, 

491, 

487 

239 

02B4 

02BA 

01E4 01E0 0 IDO 
01D9 01D6 01D3 

FDB 

484, 

480, 

477, 

473, 

470, 

467 

240 

02C0 

02C6 

01CF 01CC 01C9 
01C6 01C3 01C0 

FDB 

463, 

460, 

457, 

454, 

451, 

448 

241 

02CC 

02D2 

01 BD 01BA 01B7 
01B5 01B2 01AF 

FDB 

445, 

442, 

439, 

437, 

434, 

431 

242 

02D8 

02DE 

01AC 01AA 01A7 
01A5 01A2 01 AO 

FDB 

428, 

426, 

423, 

421, 

418, 

416 

243 

02E4 

02EA 

019D 019B 0199 
0196 0194 0192 

FDB 

413. 

411, 

409, 

406, 

404, 

402 

244 

02F0 
02 E6 

0190 0190 0190 
0190 0190 0190 

FDB 

400, 

400, 

400, 

400, 

400, 

400 


245 

246 PAG 
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247 

0300 


ORG 

248 




249 


* 


250 




251 

0300 

09C4 50E4 0D1F STABLE 

FDB 


0306 

OA72 08D2 07 B6 


252 

030C 

06E5 0644 05C3 

FDB 


0312 

055A 0501 04B6 


253 

0318 

0474 043B 0409 

FDB 


031E 

03DC 03B4 038F 


254 

0324 

036E 0350 0334 

FDB 


032A 

031A 0302 02EC 


255 

0330 

02D8 02C5 02B3 

FDB 


0336 

02A2 0292 0283 


256 

033C 

0275 0268 025B 

FDB 


0342 

024F 0243 0238 


257 

0348 

022E 0224 021B 

FDB 


034E 

0211 0209 0200 


258 

0354 

01F8 01F0 01E9 

FDB 


035A 

01E2 01DB 01D4 


259 

0360 

01CE 01C7 01C1 

FDB 


0366 

01BC 01B6 01B0 


260 

036C 

01AB 01A6 01A1 

FDB 


0372 

019C 0197 0193 


261 

0378 

018E 018A 0186 

FDB 


037E 

0182 017E 017A 


262 

0384 

0176 0172 016F 

FDB 


038A 

016B 0168 0164 


263 

0390 

0161 015E 015B 

FDB 


0396 

0158 0155 0152 


264 

039C 

014E 014C 0149 

FDB 


03A2 

0147 0144 0141 


265 

03A8 

013F 013C 013A 

FDB 


03AE 

0138 0135 0133 


266 

03B4 

0131 012E 012C 

FDB 


03BA 

012A 0128 0126 


UD 

CNJ 

03C0 

0124 0122 0120 

FDB 


03C6 

01 IE 011C 0 1 1 A 


268 

03CC 

0118 0117 0115 

FDB 


03D2 

0113 0111 0110 


269 

03D8 

010E 010C 010B 

FDB 


03DE 

0109 0107 0106 


270 

03E4 

0104 0103 0101 

FDB 


03EA 

0100 OOEE OOFO 


271 

O3F0 

OOFC OOFC OOFC 

FDB 


03F6 

OOFC OOFC OOFC 


272 




273 



PAG 


ROM+S0200 


20000 

X= 3 

TA= 

5000 


2500,20708, 

3359, 

2674, 

2258, 

1974 

1765, 

1604, 

1475, 

1370, 

1281, 

1206 

1140, 

1083, 

1033, 

988, 

948, 

911 

878, 

848, 

820, 

794, 

770, 

748 

728, 

709, 

691, 

674, 

658, 

643 

629, 

616, 

603, 

591, 

579, 

568 

558, 

548, 

539, 

529, 

521, 

512 

504, 

496, 

489, 

482, 

475, 

468 

462, 

455, 

449, 

444, 

438, 

432 

427, 

422, 

417, 

412, 

407, 

403 

398, 

394, 

390, 

386, 

382, 

378 

374, 

370, 

367, 

363, 

o 

m 

356 

353, 

350, 

347, 

344, 

341, 

338 

335, 

332, 

329, 

327, 

324, 

321 

319, 

316, 

314, 

312, 

309, 

307 

305, 

302, 

300, 

298, 

296, 

294 

292, 

290, 

288, 

286, 

284, 

282 

280, 

279, 

277, 

275, 

273, 

272 

270, 

268, 

267, 

265, 

263, 

262 

260, 

259, 

257, 

256, 

255, 

253 

252, 

252, 

252, 

252, 

252, 

252 
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274 0400 ORG ROM+$0300 

275 

276 ****************************** ********* A*****************.*.************ 

277 * MONITOR MODE (MODE 0) SUBROUTINE JUMP TABLE 

278 

279 


280 

0400 

81 

JTABLE RTS 


USED FOR UNDEFINED SUBROUTINES 

281 

0401 

CC 05 5E 

JMP 

ASUB 

ONE SCAN/CAL CYCLE 

282 

0404 

CC 05 7F 

JMP 

CSUB 

GOTO COLD LOAD 

283 

0407 

CC 05 91 

JMP 

DSUB 

TOGGLE MOTOR DIRECTION LINE 

284 

040A 

CC 05 A2 

JMP 

ESUB 

READ ENCODER CONTINUOUSLY 

285 

040D 

CC 05 B5 

JMP 

GSUB 

GET DATA FOR CURRENT POSITION 

286 

0410 

CC 05 EO 

JMP 

HSUB 

GOTO HOT LOAD 

287 

0413 

CC 05 F2 

JMP 

I SUB 

TOGGLE INTEGRATE/DUMP LINE 

288 

0416 

CC 06 03 

JMP 

LSUB 

LIST AMPR STATUS 

289 

0419 

CC 06 A2 

JMP 

MSUB 

SET EXIT MODE 

_ 290 

04 1C 

CC 06 BO 

JMP 

NSUB 

SET NUMBER OF SCANS/CAL 

291 

041 F 

CC 06 CD 

JMP 

PSUB 

TAKE STEP; REPORT POSITION 

292 

0422 

CC 06 DB 

JMP 

RETURN 

RETURN TO INDEX 

293 

0425 

CC 06 FB 

JMP 

SSUB 

TOGGLE SAMPLE/HOLD LINE 

~ 294 

0428 

CC 07 OC 

JMP 

VSUB 

TOGGLE DATA VALID LINE 

295 

042B 

CC 07 22 

JMP 

WSUB 

TOGGLE WINDINGS ON/OFF 

296 





_ 297 




298 



* 


MODE SELECTION JUMP TABLE 

299 



★ 



300 






— 301 

042E 

CC 04 EO 

MTABLE JMP 

MODEO 

MONITOR MODE 

302 

0431 

CC 07 B6 

JMP 

M00E1 

SCAN MODE: 4 /CAL, CCW RT 

303 

0434 

CC 07 BF 

JMP 

M0DE2 

SCAN MODE; 6/CAL, CCW RT 

_ 304 

0437 

CC 07 C8 

JMP 

M0DE3 

SCAN MODE; 8/CAL, CCW RT 

305 

043A 

CC 07 D1 

JMP 

MODE 4 

SCAN MODE; 10/CAL, CCW RT 

306 

043D 

CC 07 DA 

JMP 

M0DE5 

SCAN MODE; 12/CAL, CCW RT 

307 

0440 

CC 07 E3 

JMP 

M0DE6 

SCAN MODE; 14/CAL, CCW RT 

— 308 

0443 

CC 07 EC 

JMP 

MODE 7 

SCAN MODE; 16/CAL, CCW RT 

309 

0446 

CC 07 F5 

JMP 

M0DE8 

SCAN MODE; 4/CAL, CW RT 

310 

0449 

CC 08 00 

JMP 

M0DE9 

SCAN MODE; 6/CAL, CW RT 

311 

044C 

CC 08 OB 

JMP 

MODE 10 

SCAN MODE; 8/CAL. CW RT 

312 

044 F 

CC 08 16 

JMP 

MODE 11 

SCAN MODE; 10/CAL. CW RT 

313 

0452 

CC 08 21 

JMP 

M0DE12 

TAKE DATA POINTING DOWN 

314 

0455 

CC 08 52 

JMP 

M0DE13 

lKHz ON PORT A BIT 7 

— 315 

0458 

CC 08 64 

JMP 

MODEM 

MOTOR STEP TEST 

316 

045B 

CC 08 85 

JMP 

MODE 15 

PORT "A” TEST MODE 

317 



PAG 
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318 




319 



* 


EXECUTION BEGINS HERE 

320 



* 




321 







322 

045E 

9B 

RESET 

SEI 


INSURE NO INTERRUPTS YET 

323 

045F 

9C 


RSP 


INSURE STACK IS RESET 

324 

0460 

A6 OA 


LDA 

#$0A 

SET MEMORY MAP AND IRQ SENSE 

325 

0462 

C7 IF DF 


STA 

OPTION 


326 

0465 

A6 FF 


LDA 

#$FF 


327 

0467 

B7 04 


STA 

DDRA 

PORT A ALL OUTPUT 

328 

0469 

B7 05 


STA 

DDRB 

PORT B ALL OUTPUT 

329 

046B 

3F 06 


CLR 

DDRC 

PORT C ALL INPUT 

330 

046D 

3F 5A 


CLR 

MSC 

MICROSTEP COUNTER 

331 

046 F 

IF 5C 


BCLR 

INDEX, FLAG 

NOT AT INDEX 

332 

0471 

13 5C 


BCLR 

ODD, FLAG 

NOT ODD #STEPS 

333 

0473 

11 5C 


BCLR 

RT,FLAG 

CCW RETRACE 

334 

0475 

1C 5C 


BSET 

HS, FLAG 

USE SLOW "FAST" RAMP 

335 

0477 

14 01 


BSET 

CW. PORTB 

CLOCKWISE 

336 

0479 

16 01 


BSET 

AWO.PORTB 

WINDINGS ON 

337 

047B 

CD OB OA 


JSR 

PULSE 

PRIME THE SEQUENCER 

338 

047E 

19 01 


BCLR 

DUMP, PORTS 

DUMP 

339 

0480 

ID 01 


BCLR 

NVAL, PORTB 

NO DATA VALID 

340 

0482 

IB 01 


BCLR 

HOLD, PORTB 

HOLD 

341 

0484 

IF 01 


BCLR 

TEST, PORTB 


342 

0486 

11 01 


BCLR 

MBYTE .PORTB 

HIGH BYTE OF HP CHIP 

343 

0488 

12 01 


BSET 

OE, PORTB 

DISABLE OUTPUT OF HP CHIP 

344 

048A 

3F OA 


CLR 

SPCR 

DISABLE SPI 

345 

048C 

A6 08 


LDA 

#$08 


346 

048E 

B7 OF 


STA 

SCCR1 

NO SCI WAKEUP 

347 

0490 

A6 OC 


LDA 

#$0C 


348 

0492 

B7 OF 


STA 

SCCR2 

NO SCI INTERRUPTS 

349 

0494 

A6 30 


LDA 

#$30 


350 

0496 

B7 OD 


STA 

BAUD 

9600 BAUD (4 MHz CRYSTAL) 

351 

0498 

4F 


CLRA 



352 

0499 

B7 00 


STA 

PORTA 

TELL DATA LOGGER, "RESTART” 

353 

049B 

B7 50 


STA 

POS 

ABSOLUTE POSITION UNKNOWN 

354 

049D 

4C 


INCA 



355 

049E 

B7 54 


STA 

XMODE 

DEFAULT EXIT MODE IS 1 

356 

04 AO 

A6 04 


LDA 

#4 


357 

04A2 

B7 51 


STA 

SCANS 

DEFAULT TO 4 SCANS PER CALIBRATE 

358 

04A4 

A6 33 


LDA 

#51 

END OF SCAN (1 PAST) 

359 

04A6 

B7 53 


STA 

EOS 


360 

04A8 

A6 50 


LDA 

#80 


361 

04AA 

B7 58 


STA 

MSTEP 

SINGLE STEP TIMING 

3G2 

04AC 

A6 D6 


LDA 

#$D6 

LDA QQQQ.X OPCODE 

363 

04AE 

B7 68 


STA 

LFETCH 

PUT LDA CTABLE+.X & RTS IN RAM 

364 

04B0 

B7 6C 


STA 

HFETCH 

PUT LDA CTABLE ,X & RTS IN RAM 

365 

04B2 

4F 


CLRA 


A=0 

366 

04B3 

B7 6E 


STA 

HFETCH+2 

$02 [00] 

367 

04B5 

4C 


INCA 


A=1 

368 

04B6 

B7 6A 


STA 

LFETCH+2 

$02 [01] 

369 

04 B8 

4C 


INCA 


A=2 

370 

04B9 

B7 6D 


STA 

HFETCH+1 

$ [02] 00 

371 

04BB 

B7 69 


STA 

LFETCH+1 

$ [02] 01 

372 

04BD 

A6 81 


LDA 

#$81 

RTS OPCODE 

373 

04BF 

B7 6B 


STA 

LFETCH+3 


374 

04C1 

B7 6F 


STA 

HFETCH+3 

NOW CAN CHANGE TABLES 
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375 

04C3 

A6 

AO 


LDA 

#$A0 

1CIE, TO I E , NEG EDGE 

376 

04C5 

B7 

12 


STA 

TCR 

MAKE STEP PULSE LINE LOW 

377 

04C7 

4F 



CLRA 



378 

04C8 

98 



CLC 



379 

04C9 

CD 

OB 

17 

JSR 

WAIT 

WAIT FOR IT TO HAPPEN 

380 

04CC 

B6 

03 


LDA 

PORTD 

READ THUMBWHEEL SWITCH 

381 

04CE 

44 



LSRA 


MOVE BITS 5-2 TO 3-0 

382 

04CF 

44 



LSRA 



383 

04D0 

A4 

OF 


AND 

#$0F 

MASK OFF UPPER NIBBLE 

m 

04D2 

AE 

03 


LDX 

#3 


385 

0404 

42 



MUL 


COMPUTE OFFSET INTO TABLE 

386 

04D5 

97 



TAX 



387 

04D6 

3D 

IE 


TST 

COPCR 

CLEAR POSSIBLE FLAG 

388 

0408 

A6 

OF 


LDA 

#$0F 


389 

04DA 

B7 

IE 


STA 

COPCR 

ENABLE WATCHDOG 

390 

04DC 

9A 



CLI 


INTERRUPTS OK NOW 

391 

04DD 

DC 

04 

2E 

JMP 

MTABLE.X 

JUMP INTO MODE ON SWITCH 


392 PAG 
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393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 



SCANNER MODES (0-15) 




******** *************** 


MODE 0 (MONITOR MODE) 


MODE 0 IS THE INTERACTIVE DIAGNOSTIC, OR "MONITOR" 
MODE. IT IS SELECTED BY SETTING THE THUMBWHEEL SWITCH TO 0 
BEFORE POWER UP OF THE SYSTEM. UPON ENTRY, THE RS-232C 
DTR HARDWARE HANDSHAKE LINE IS CHECKED. IF IT IS ACTIVE, A 
COMMUNICATIONS DEVICE IS ASSUMED TO BE ATTACHED. IF NOT, 
THEN A MESSAGE IS SENT BY RS-232C INFORMING A DEVICE WHICH 
MAY YET BE ATTACHED TO ACKNOWLEDGE ITS PRESENCE BY SENDING 
A CARRIAGE RETURN CHARACTER. IF THE CHARACTER IS RECEIVED, 
A COMMUNICATIONS DEVICE IS ASSUMEO TO BE ATTACHED. IF THE 
CHARACTER IS NOT RECEIVED, THE ENTIRE PROCESS JUST 
DESCRIBED IS REPEATED. 

ONCE COMMUNICATION HAS BEEN ESTABLISHED, A MENU 
OF FEATURES IS SENT. THESE FEATURES INCLUDE THE ABILITY 
TO MANIPULATE THE STEPPER MOTOR AND THE DATA ACQUISITION 
HARDWARE, AND TO EXIT TO ANOTHER MODE OF OPERATION. 


MONITOR MODE (MODE 0) MAIN LOOP 


04E0 

17 01 

MODEO 

BCLR 

AWO, PORTB 

TURN WINDINGS OFF 

04E2 

OF 03 IB 


BRCLR 

DTR, PORTD,MON 

IF /DTR; ASSUME TERMINAL 

04E5 

5F 


CLRX 


NO /DTR; CHECK FOR TERMINAL 

04E6 

OF 10 FD 

10 

BRCLR 

TDRE, SCSR, LO 

WAIT FOR TDRE 

04E9 

D6 OF 55 


LDA 

HEYYOU,X 

GET CHARACTER 

04EC 

A1 03 


CMP 

#ETX 

END OF MESSAGE? 

04EE 

27 05 


BEQ 

LOO 

IF SO, WAIT FOR INPUT 

04E0 

B7 11 


STA 

SCI 

NO; SEND CHARACTER 

04F2 

5C 


INCX 


POINT TO NEXT CHARACTER 

04F3 

20 FI 


BRA 

LO 

REPEAT UNTIL DONE 

04F5 

OB 10 FD 

LOO 

BRCLR 

RDRF, SCSR. LOO 

WAIT FOR INPUT 

04F8 

B6 11 


LDA 

SCI 

GET CHARACTER 

04FA 

A4 7F 


AND 

#$7F 

CLEAR UPPER BIT 

04 FC 

A1 OD 


CMP 

#CR 

CARRIAGE RETURN? 

04FE 

26 EO 


BNE 

MODEO 

MUST ANSWER OR ASSERT /DTR 

0500 

5F 

MON 

CLRX 


RS-232 DEVICE PRESENT 

0501 

D6 OC 64 

LI 

LDA 

MENU, X 

GET CHARACTER 

0504 

OF 10 FD 

Lll 

BRCLR 

TDRE, SCSR, Lll 

WAIT FOR TDRE 

0507 

B7 11 


STA 

SCI 

SEND CHARACTER 

0509 

5C 


INCX 


NEXT CHARACTER 

050A 

26 F5 


BNE 

LI 

REPEAT FOR FIRST 256 BYTES 

050C 

Db OD 64 

L12 

LDA 

(MENU+256) r X 

NOW USING LAST PART OF MENU 

050F 

A1 03 


CMP 

#ETX 

END OF MENU? 

0511 

27 08 


BEQ 

L2 

IF SO, GO WAIT FOR INPUT 

0513 

OF 10 FD 

L 1 3 

BRCLR 

TDRE, SCSR, L13 

WAIT FOR TDRE 

0516 

B7 11 


STA 

SCI 

NO; PUT CHARACTER OUT 

0518 

5C 


INCX 


POINT TO NEXT CHARACTER 

0519 

20 FI 


BRA 

L12 

REPEAT UNTIL DONE 

051B 

OB 10 FD 

L2 

BRCLR 

RDRF, SCSR, L2 

WAIT FOR INPUT 

051E 

B6 11 


LDA 

SCI 

GET INPUT 

0520 

A4 7F 


AND 

#$7F 

CLEAR UPPER BIT 
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450 

0522 

A1 3F 

CMP 

451 

0524 

27 DA 

BEQ 

452 

0526 

A4 5F 

AND 

453 

0528 

A1 58 

CMP 

454 

052A 

26 14 

BNE 

455 

052C 

B6 54 

LDA 

456 

052E 

AE 03 

LDX 

457 

0530 

42 

MUL 

458 

0531 

97 

TAX 

459 

0532 

4F 

CLRA 

460 

0533 

B7 50 

STA 

461 

0535 

B7 00 

STA 

462 

0537 

IB 01 

BCLR 

463 

0539 

19 01 

BCLR 

464 

053B 

ID 01 

BCLR 

465 

053D 

DC 04 2E 

JMP 

466 

0540 

AO 41 

L25 SUB 

467 

0542 

2B BC 

BMI 

468 

0544 

A1 19 

CMP 

469 

0546 

22 B8 

BHI 

470 

0548 

97 

TAX 

471 

0549 

EE 20 

LDX 

472 

054B 

DD 04 00 

JSR 

473 

054E 

5F 

CLRX 

474 

054F 

OF 10 FD 

L3 BRCLR 

475 

0552 

D6 OE 2D 

LDA 

476 

0555 

A1 03 

CMP 

477 

0557 

27 C2 

BEQ 

4 78 

0559 

B7 11 

STA 

479 

055B 

5C 

INCX 

480 

055C 

20 FI 

BRA 

481 



PAG 


#"?" 

HELP REQUEST? 

MON 

REPEAT MENU 

#$5F 

HANDLE LOWER CASE, TOO 

rx M 

EXIT REQUEST? 

L25 

CONTINUE IF NOT 

XMODE 

GET NEXT MODE 

#3 

COMPUTE OFFSET 


POS 

FORCE RESYNC 

PORTA 

REPORT RESTART 

HOLD, PORTB 
DUMP, PORTB 
NVAL, PORTB 

RESET INITIAL CONDITIONS 

MTABLE.X 

ENTER NEXT MODE 

#"A” 

ALPHA CHARACTERS ONLY 

MON 

REPEAT MENU IF ILLEGAL INPUT 

#25 

UPPER LIMIT 

MON 

IF LEGAL, RANGE IS NOW 0-25 

OFFSET, X 

GET OFFSET INTO JUMP TABLE 

JTABLE,X 

GO TO APPROPRIATE SUBROUTINE 

TDRE, SCSR, L3 
PROMPT, X 

WAIT FOR EMPTY TRANSMITTER 

#ETX 

DONE? 

L2 

YES; GO WAIT FOR INPUT 

SCI 

OUTPUT PROMPT 

L3 

REPEAT UNTIL DONE 
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482 



************************* ;***★******************************** 

483 



* 


ASUB: 

DO ONE SCAN/CALIBRATE CYCLE 

484 



* 




485 



* 


THIS SUBROUTINE WILL EXECUTE ONE CYCLE OF 

486 



* 

"n" SCANS (n-1 RETRACES) PLUS A CALIBRATION 

487 



* 




488 







489 

055E 

CD 06 DB 

ASUB 

JSR 

RETURN 

RETURN TO INDEX POSITION 

490 

0561 

4F 


CLRA 


OUTPUT POSITION = 0 

491 

0562 

AE 0A 


LDX 

#10 

10 SETS 

492 

0564 

CD OA D8 


JSR 

acq 

10 SETS INDICATES RESTART 

493 







494 



* 


ENTRY POINT FOR SUBROUTINE MSLOOP 

495 







496 

0567 

10 6D 

ASUB1 

BSET 

0, HFETCH+1 

$0100 OR $0300 

497 

0569 

10 69 


BSET 

0, LFETCH+1 


498 

056B 

OC 5C 04 


BRSET 

HS, FLAG, ASUB2 

SKIP IF $0300 DESIRED 

499 

056E 

13 6D 


BCLR 

1 , HFETCH+1 

$0100 

500 

0570 

13 69 


BCLR 

1, LFETCH+1 


501 

0572 

CD 08 8F 

ASUB2 

JSR 

SCAN 

DO "N" SCANS 

502 

0575 

A6 02 


IDA 

#$02 


503 

0577 

B7 6D 


STA 

HFETCH+1 

CALIBRATION SPEED 

504 

0579 

B7 69 


STA 

LFETCH+1 


505 

057B 

CD 09 1C 


JSR 

CAL 

DO CALIBRATE 

506 

057E 

81 


RTS 



507 







508 



******************************************************** W ****1 

509 



★ 


CSUB: 

MOVE TO COLD LOAD 

510 



* 




511 



★ 


THE REFLECTOR WILL MOVE TO THE COLD LOAD FROM 

512 



★ 

THE CURRENT POSITION. 

UPON EXIT ACCUMULATOR CONTAINS 

513 



★ 




514 







515 

057F 

3D 50 

C SUB 

TST 

POS 

IN SYNC? 

516 

0581 

26 03 


BNE 

CS1 


517 

0583 

’CD 06 DB 


JSR 

RETURN 

SYNC ENCODER 

518 

0586 

A6 87 

CS1 

LDA 

#135 

POSITION OF COLD LOAD 

519 

0588 

B1 50 


CMP 

POS 


520 

058 A 

27 04 


BEQ 

COLD 

THERE ALREADY? 

521 

058C 

99 


SEC 


CLOCKWISE 

522 

058D 

CD 09 30 


JSR 

MOVE 

GO STEPPING 

523 

0590 

81 

COLD 

RTS 



524 







525 



****** 

******************************************************* 

526 



* 


DSUB: 

DIRECTION CONTROL SUBROUTINE 

527 



* 




528 



* 


THIS SUBROUTINE TOGGLES THE DIRECTION CONTROL 

529 



* 

BIT, 1 

BIT 1 OF PORT B. 

AND REPORTS THE NEW STATE. 

530 



* 




531 







532 

0591 

05 01 07 

DSUB 

BRCLR 

CCW,PORTB,DCW 

BRANCH TO CW IF CCW 

533 

0594 

15 01 


BCLR 

CCW, PORTB 

WAS CW; NOW CCW 

534 

0596 

AE 4F 


LDX 

#(CCWMSG-CV) 

SAY SO 

535 

0598 

CC 07 9C 


JMP 

CURSUB 

SNEAKY RTS 

536 

059B 

14 01 

DCW 

BSET 

CW, PORTB 

WAS CCW; NOW CW 

537 

059D 

AE 56 


LDX 

#(CWMSG-CV) 

SAY SO 

538 

059F 

CC 07 9C 


JMP 

CURSUB 

SNEAKY RTS 
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539 

540 

541 

542 

543 

544 

545 

546 

547 


556 

557 

558 

559 

560 

561 

562 

563 

564 


*************** ********************************************** 

* ESUB: ENCODER POSITION 

' k 

* THIS SUBROUTINE WILL OUTPUT THE ENCODER 

* POSITION TO THE SERIAL PORT, NONSTOP. UNTIL ANY CHARACTER 

* IS RECEIVED BY THE SERIAL PORT. 


548 

05A2 

CD OA 

BO 

ESUB JSR 

GETPOS 

COMPUTE POSITION 

549 

05A5 

B6 50 


LDA 

POS 


550 

05A7 

CD 07 

3B 

JSR 

0UT3 

OUTPUT VALUE 

551 

05AA 

AE 15 


LDX 

#(NLMSG-CV) 

CR/LF 

552 

05AC 

CD 07 

9C 

JSR 

CURSUB 


553 

05AF 

OB 10 

FO 

BRCLR 

RDRF, SCSR.ESUB 

KEY PRESSED? 

554 

05B2 

B6 11 


LDA 

SCI 

CLEAR FLAG 

555 

05B4 

81 


RTS 




************************************************************* 

* GSUB: GET DATA IN CURRENT POSITION 

★ 

* THIS SUBROUTINE MANIPULATES THE SAMPLE/HOLD, 

* INTEGRATE/DUMP, AND DATA VALID LINES SO AS TO ACQUIRE 

* RADIOMETER DATA FOR THE CURRENT REFLECTOR POSITION. 


565 

05B5 

18 

01 


GSUB BSET 

INT, PORTB 

INTEGRATE 

566 

05B7 

A6 

C8 


LDA 

#200 


567 

05B9 

98 



CLC 



568 

05BA 

CD 

OB 

17 

JSR 

WAIT 

WAIT 10 MS 

569 

05BD 

A6 

C8 


LDA 

#200 


570 

05BF 

98 



CLC 



571 

05C0 

CD 

OB 

17 

JSR 

WAIT 

WAIT 10 MS 

572 

05C3 

A6 

C8 


LDA 

#200 


573 

05C5 

98 



CLC 



574 

05C6 

CD 

OB 

17 

JSR 

WAIT 

WAIT 10 MS 

575 

05C9 

A6 

C8 


LDA 

#200 


576 

05CB 

98 



CLC 



577 

05CC 

CD 

OB 

17 

JSR 

WAIT 

WAIT 10 MS 

578 

05CF 

ID 

01 


BCLR 

NVAL, PORTB 

DATA NOT VALID 

579 

05D1 

1A 

01 


BSET 

SMPL, PORTB 

SAMPLE 

580 

05D3 

A6 

C8 


LDA 

#200 


581 

05D5 

98 



CLC 



582 

05D6 

CD 

OB 

17 

JSR 

WAIT 

WAIT 10 MS 

583 

05D9 

IB 

01 


BCLR 

HOLD, PORTB 

HOLD 

584 

05DB 

1C 

01 


BSET 

VAL, PORTB 

DATA VALID 

585 

05DD 

19 

01 


BCLR 

DUMP, PORTB 

DUMP 

586 

05DF 

81 



RTS 



587 





PAG 
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588 




******* 

****************************************************** 

589 




* 


HSUB: MOVE TO HOT LOAD 

590 




* 



591 




* 


THE REFLECTOR WILL MOVE TO THE HOT LOAD FROM THE 

592 




* 

CURRENT 

POSITION. UPON EXIT, THE ACCUMULATOR CONTAINS 1 

593 




* 



594 







595 

05E0 

3D 

50 

HSUB 

TST 

POS IN SYNC? 

596 

05E2 

26 

03 


BNE 

HS1 

597 

05E4 

CD 

06 DB 


JSR 

RETURN SYNC ENCODER 

598 

05E7 

A6 

75 

HS1 

LDA 

#117 POSITION OF HOT LOAD 

599 

05E9 

B1 

50 


CMP 

POS 

600 

05EB 

27 

04 


BEQ 

HOT THERE ALREADY? 

601 

05ED 

99 



SEC 

CLOCKWISE 

602 

05EE 

CD 

09 30 


JSR 

MOVE GO STEPPING 

603 

05F1 

81 


HOT 

RTS 


604 







605 




************************************************************* 

606 




* 


I SUB: INTEGRATE/DUMP SUBROUTINE 

607 




* 



608 




* 


THIS SUBROUTINE TOGGLES THE INTEGRATE/DUMP 

609 




* 

BIT, BIT 4 OF PORT B, AND REPORTS THE NEW STATE. 

610 




* 

A AND X 

ARE DESTROYED. 

611 




* 



612 







613 

05F2 

08 

01 07 

I SUB 

BRSET 

INT, PORTS, DMP BRANCH TO D IF I 

614 

05F5 

18 

01 


BSET 

INT, PORTB WAS D; NOW I 

615 

05F7 

AE 

28 


LDX 

#( IMSG-CV) SAY SO 

616 

05F9 

CC 

07 9C 


JMP 

CURSUB SNEAKY RTS 

617 

05FC 

19 

01 

DMP 

BCLR 

DUMP, PORTB WAS I; NOW D 

618 

05FE 

AE 

34 


LDX 

#(DMSG-CV) SAY SO 

619 

0600 

CC 

07 9C 


JMP 

CURSUB SNEAKY RTS 

620 
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622 



* 


LSUB: 

LIST AMPR STATUS 

623 



* 




624 



* 


THE CURRENT STATE OF SEVERAL IMPORTANT 

625 



★ 

SIGNALS 

AND VARIABLES 

IS REPORTED. 

626 



* 




627 







628 

0603 

5F 

LSUB 

CLRX 


HEADER 

629 

0604 

CO 07 9C 


JSR 

CURSUB 


630 

0607 

AE 3B 

LW 

LDX 

# ( WBMSG-CV ) 

WINDINGS 

631 

0609 

CD 07 9C 


JSR 

CURSUB 


632 

060C 

07 01 07 


BRCLR 

AWO, PORTB, LWF 


633 

060F 

AE 46 


LDX 

# ( WNMSG-CV ) 

ON 

634 

0611 

CD 07 9C 


JSR 

CURSUB 


635 

0614 

20 05 


BRA 

LD 


636 

0616 

AE 4A 

LWF 

LDX 

#(WFMSG-CV) 

OFF 

637 

0618 

CD 07 9C 


JSR 

CURSUB 


638 

061B 

05 01 07 

LD 

BRCLR 

CCW, PORTB, LDCCW 

639 

061E 

AE 56 


LDX 

# ( CWMSG-CV ) 

CLOCKWISE 

640 

0620 

CD 07 9C 


JSR 

CURSUB 


641 

0623 

20 05 


BRA 

LI 


642 

0625 

AE 4F 

LDCCW 

LDX 

#(CCWM$G-CV) 

COUNTERCLOCKWISE 

643 

0627 

CD 07 9C 


JSR 

CURSUB 


644 

062A 

08 01 07 

LI 

BRSET 

INT, PORTB, LINT 


645 

062D 

AE 34 


LDX 

#(DMSG-CV) 

DUMP 

646 

062F 

CD 07 9C 


JSR 

CURSUB 


647 

0632 

20 05 


BRA 

LS 


648 

0634 

AE 28 

LINT 

LDX 

#( IMSG-CV) 

INTEGRATE 

649 

0636 

CD 07 9C 


JSR 

CURSUB 


650 

0639 

OA 01 07 

LS 

BRSET 

SMPL, PORTB, LSS 


651 

063C 

AE 21 


LDX 

# ( HMSG-CV ) 

HOLD 

652 

063E 

CD 07 9C 


JSR 

CURSUB 


653 

0641 

20 05 


BRA 

LV 


654 

0643 

AE 18 

LSS 

LDX 

#(SMSG-CV) 

SAMPLE 

655 

0645 

CD 07 9C 


JSR 

CURSUB 


656 

0648 

AE 62 

LV 

LDX 

#(VBMSG-CV) 

VALID= 

657 

064A 

CD 07 9C 


JSR 

CURSUB 


658 

0640 

OC 01 07 


BRSET 

VAL, PORTB, LVAL 


659 

0650 

AE 6E 


LDX 

#(NVMSG-CV) 

LOW 

660 

0652 

CD 07 9C 


JSR 

CURSUB 


661 

0655 

20 05 


BRA 

LN 


662 

0657 

AE 74 

LVAL 

LDX 

#(VMSG-CV) 

HIGH 

663 

0659 

CD 07 9C 


JSR 

CURSUB 


664 

065C 

B6 51 

LN 

LDA 

SCANS 

# SCANS/CALIBRATE 

665 

065E 

CD 07 3B 


JSR 

0UT3 

DISPLAY IT 

666 

0661 

AE 9F 


LDX 

#(SPCMSG-CV) 

FINISH TEXT 

667 

0663 

CD 07 9C 


JSR 

CURSUB 


668 

0666 

B6 54 

LX 

LDA 

XMODE 

GET EXIT MODE 

669 

0668 

CD 07 3B 


JSR 

0UT3 

DISPLAY IT 

670 

066B 

AE 90 


LDX 

#(XMSG-CV) 

FINISH TEXT 

671 

066D 

CD 07 9C 


JSR 

CURSUB 



672 PAG 
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POSITION DISPLAY ENTRY POINT 

A SUBROUTINE CALL MAY BE MADE TO "LPOS" 
(WHICH IS A PART OF ”LSUB”) FOR THE SOLE PURPOSE 
OF DISPLAYING THE CURRENT MOTOR POSITION. 


673 




674 




675 




676 




677 




6/8 




679 




680 




681 




682 

0670 

B6 

50 

683 

0672 

26 

05 

684 

0674 

AE 

7B 

685 

0676 

CC 

07 9C 

686 

0679 

A1 

01 

687 

067B 

26 

07 

688 

067D 

AE 

CE 

689 

067F 

CD 

07 9C 

690 

0682 

20 

14 

691 

0684 

A1 

87 

692 

0686 

26 

07 

693 

0688 

AE 

C2 

694 

068A 

CD 

07 9C 

695 

068D 

20 

09 

696 

068 F 

A1 

75 

697 

0691 

26 05 

698 

0693 

AE 

B7 

699 

0695 

CD 

07 9C 

700 

0698 

B6 

50 

701 

069A 

CD 

07 3B 

702 

069D 

AE 

7C 

703 

069F 

CC 

07 9C 

704 





LPOS 

LDA 

POS 


BNE 

LPOSO 


LDX 

#(NPMSG-CV) 


JMP 

CURSUB 

LPOSO 

CMP 

#1 


BNE 

LP0S1 


LDX 

#(NXMSG-CV) 


JSR 

CURSUB 


BRA 

LP0S3 

LP0S1 

CMP 

#135 


BNE 

LP0S2 


LDX 

#(CLMSG-CV) 


JSR 

CURSUB 


BRA 

LP0S3 

LP0S2 

CMP 

#117 


BNE 

LP0S3 


LDX 

# ( HLMSG-C V) 


JSR 

CURSUB 

LP0S3 

LDA 

POS 


JSR 

0UT3 


LDX 

# ( POSMSG -CV ) 


JMP 

CURSUB 


PAG 



GET MOTOR POSITION 
ENCODER NOT IN SYNC? 
ABSOLUTE POSITION UNKNOWN 
SNEAKY RETURN 
AT INDEX? 

YES 

GIVE POSITION 
AT COLD LOAD? 

YES 

GIVE POSITION 
AT HOT LOAD? 

YES 

GET POSITION 
DISPLAY IT 
FINISH TEXT 
SNEAKY RETURN 



Tue May 1 1990 00:30 


Page 18 


AMPR 


705 

706 

707 

708 

709 

710 

711 

712 


726 

727 

728 

729 

730 

731 


746 

747 

748 

749 

750 


******** ***************************************************** 

* MSUB: SELECT EXIT MODE 

* 

* THIS SUBROUTINE ALLOWS FOR THE SELECTION OF 

* THE MODE WHICH WILL BE EXECUTED UPON EXIT FROM MODE 0 

* (MONITOR MODE). THE DEFAULT IS MODE 1. 


713 

06A2 

5F 



MSUB 

CLRX 



714 

06A3 

D6 

OB 

70 

MSI 

LDA 

MODES f X 

DISPLAY MODES MENU 

715 

06A6 

A1 

03 



CMP 

#ETX 

END OF MENU? 

716 

06A8 

27 

08 



BEQ 

MS3 

IF SO, GO GET NEW MODE 

717 

06AA 

OF 

10 

FD 

MS2 

BRCLR 

TDRE, SCSR.MS2 

WAIT FOR TORE 

718 

06 AD 

B7 

11 



STA 

SCI 

NO; PUT CHARACTER OUT 

719 

06AF 

SC 




INCX 


POINT TO NEXT CHARACTER 

720 

06B0 

20 

FI 



BRA 

MSI 

REPEAT UNTIL DONE 

721 

06B2 

AE 

D6 


MS3 

LDX 

#(HXMSG-CV) 


722 

06B4 

CD 

07 

9C 


JSR 

CURSUB 


723 

06B7 

CD 

07 

75 


JSR 

HEXIN 

GET ONE HEX DIGIT 

724 

06BA 

B7 

54 



STA 

XMODE 

SAVE IT 

725 

06 BC 

81 




RTS 




******* ********************************************************* 

* NSUB: NUMBER OF SCANS PER CALIBRATE 

* 

* THIS SUBROUTINE ALLOWS FOR THE SELECTION OF 

* THE NUMBER OF SCANS BETWEEN CALIBRATIONS. THE DEFAULT 


732 




★ 

IS 4, 

EQUIVALENT TO MODE 

1 OPERATION. THIS COMMAND 

733 




★ 

ONLY 

HAS EFFECT IN MONITOR MODE (IT DOES NOT ALTER 

734 




★ 

ANY OF THE OTHER MODES). 

A VALUE OF ZERO TAKEN TO 1 

735 




★ 

16 SCANS PER CALIBRATION. 

736 




* 




737 








738 

06 BD 

AE 

D6 

NSUB 

LDX 

#(HXMSG-CV) 


739 

06BF 

CD 

07 9C 


JSR 

CURSUB 


740 

06C2 

CD 

07 75 


JSR 

HEXIN 

GET ONE HEX DIGIT 

741 

06C5 

4D 



TSTA 



742 

06C6 

26 

02 


BNE 

NSUB1 

OK IF NONZERO 

743 

06C8 

AB 

10 


ADD 

#16 

MAKE IT 16 SCANS 

744 

06CA 

B7 

51 

NSUB1 

STA 

SCANS 

SAVE IT 

745 

06CC 

81 



RTS 


THAT'S ALL FOLKS 1 


************************************************************* 
* PSUB: TAKE A STEP; REPORT POSITION 


751 

06CD 

A6 

C8 


PSUB LDA 

#200 

752 

06CF 

B7 

58 


STA 

MSTEP 

753 

06D1 

CD 

OA 

46 

JSR 

STEP 

754 

06D4 

A6 

50 


LDA 

#80 

755 

06D6 

B7 

58 


STA 

MSTEP 

756 

0608 

CC 

06 

70 

JMP 

LPOS 

757 





PAG 



RESTORE INITIAL VALUES 


DISPLAY & SNEAKY RETURN 
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758 



*************** 

***************** ****************************** 

759 



* 


RETURN: 

RETURN TO INDEX POSITION 

760 



* 




761 



* 


THIS SUBROUTINE 

WILL CAUSE THE REFLECTOR TO 

762 



* 

RETURN 

BY THE SHORTEST PATH FROM THE CURRENT POSITION 

763 



* 

TO THE 

START OF SCAN POSITION (DEFINED AS POSITIONS) 

764 



* 

THE ACTUAL POSITION IS CHECKED BY READING THE SHAFT 

765 



* 

ENCODER. 


766 



* 




767 







768 

06DB 

B6 50 

RETURN 

IDA 

POS 

GET SUPPOSED POSITION 

769 

06DD 

26 05 


BNE 

R1 

IF ZERO, ENCODER NOT IN SYNC 

770 

06DF 

CD 0A EB 


JSR 

SYNC 

STRAIGHTEN IT OUT 

771 

06E2 

20 12 


BRA 

R4 


772 

06E4 

A1 01 

R1 

CMP 

#1 

THERE ALREADY? 

773 

06E6 

27 OC 


BEQ 

R3 


774 

06E8 

A6 64 

R2 

LDA 

#100 

COMPUTE DIRECTION 

775 

06 E A 

CD OA BO 


JSR 

GETPOS 


776 

06ED 

B1 50 


CMP 

POS 


777 

06EF 

A6 01 


LDA 

#1 

DESTINATION 

778 

06F1 

CD 09 30 


JSR 

MOVE 

GO STEPPING 

779 

06F4 

B7 00 

R3 

STA 

PORTA 

REPORT POSITION 

780 

06F6 

3F 52 

R4 

CLR 

SCANUM 


781 

06 F8 

14 01 


BSET 

CW.PORTB 

NEW DIRECTIONS 

782 

06FA 

81 


RTS 


DONE 

783 







784 



********************** *************************************** 

785 



* 


SSUB: SAMPLE/HOLD SUBROUTINE 

786 



* 




787 



* 


THIS SUBROUTINE 

TOGGLES THE SAMPLE/HOLD BIT, 

788 



* 

BIT 5 

OF PORT B, AND REPORTS THE NEW STATE. 

789 



* 

A AND 

X ARE DESTROYED. 


790 



* 




791 







792 

06FB 

OA 01 07 

SSUB 

BRSET 

SMPL.PORTB.HLD 

BRANCH TO H IF S 

793 

06FE 

1A 01 


BSET 

SMPL.PORTB 

WAS H; NOW S 

794 

0700 

AE 18 


LDX 

# ( SMSG-CV ) 

SAY SO 

795 

0702 

CC 07 9C 


JMP 

CURSUB 

SNEAKY RTS 

796 

0705 

IB 01 

HLD 

BCLR 

HOLD, PORT B 

WAS S; NOW H 

797 

0707 

AE 21 


LDX 

#(HMSG-CV) 

SAY SO 

798 

0709 

CC 07 9C 


JMP 

CURSUB 

SNEAKY RTS 

799 
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800 



801 



802 



803 



804 



805 



806 



807 



808 

070C 

AE 62 

809 

070E 

CD 07 9C 

810 

0711 

OC 01 07 

811 

0714 

1C 01 

812 

0716 

AE 74 

813 

0718 

CC 07 9C 

814 

07 IB 

ID 01 

815 

071D 

AE 6E 

816 

071F 

CC 07 9C 

817 



818 



819 



820 



821 



822 



823 



824 



825 



826 

0722 

AE 3B 

827 

0724 

CD 07 9C 

828 

0727 

07 01 07 

829 

072A 

17 01 

830 

072C 

AE 4A 

831 

072E 

CC 07 9C 

832 

0731 

16 01 

833 

0733 

CD OB OA 

834 

0736 

AE 46 

835 

0738 

CC 07 9C 

836 








VSUB: DATA VALID CONTROL SUBROUTINE 


THIS SUBROUTINE TOGGLES THE DATA VALID CONTROL 
BIT, BIT 6 OF PORT B, AND REPORTS THE NEW STATE. 


* 

* 

A AND X 

ARE DESTROYED. 


VSUB 

LDX 

# ( VBMSG-CV) 



JSR 

CURSUB 



BRSET 

VAL.PORTB, NV 

BRANCH TO LOW IF HIGH 


BSET 

VAL.PORTB 

WAS LOW; NOW HIGH 


LDX 

# (VMSG-CV) 

SAY SO 


JMP 

CURSUB 

SNEAKY RTS 

NV 

BCLR 

NVAL, PORTB 

WAS HIGH; NOW LOW 


LDX 

# ( NVMSG-CV ) 

SAY SO 


JMP 

CURSUB 

SNEAKY RTS 


* WSUB: WINDINGS CONTROL SUBROUTINE 


★ 


THIS SUBROUTINE 

TOGGLES THE WINDINGS CONTROL 

* 

BIT, BI1 

3 OF PORT B, AND REPORTS THE NEW STATE. 

* 

* 

A AND X 

ARE DESTROYED. 


WSUB 

LDX 

#(WBMSG-CV) 



JSR 

CURSUB 



BRCLR 

AWO, PORTB, WON 

BRANCH TO ON IF OFF 


BCLR 

AWO, PORTB 

WAS ON; NOW OFF 


LDX 

#(WFMSG-CV) 

SAY SO 


JMP 

CURSUB 

SNEAKY RTS 

WON 

BSET 

AWO. PORTB 

WAS OFF; NOW ON 


JSR 

PULSE 

REPRIME THE SEQUENCER 


LDX 

#(WNMSG-CV) 

SAY SO 


JMP 

CURSUB 

SNEAKY RTS 
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837 




838 




839 




840 




841 




842 




843 




844 




845 

073B 

B7 

60 

846 

073D 

BF 

64 

847 

073F 

AE 

30 

848 

0741 

A1 

63 

849 

0743 

23 

05 

850 

0745 

5C 


851 

0746 

AO 

64 

852 

0748 

20 

F7 

853 

074A 

A3 

30 

854 

074C 

27 

07 

855 

074E 

OF 

10 FD 

856 

0751 

BF 

11 

857 

0753 

AE 

BO 

858 

0755 

A1 

09 

859 

0757 

23 

05 

860 

0759 

5C 


861 

075A 

AO 

OA 

862 

075C 

20 

F7 

863 

075E 

A3 

30 

864 

0760 

27 

07 

865 

0762 

58 


866 

0763 

57 


867 

0764 

OF 

10 FD 

868 

0767 

BF 

11 

869 

0769 

OF 

10 FD 

870 

076C 

AB 

30 

871 

076E 

B7 

11 

872 

0770 

BE 

64 

873 

0772 

B6 

60 

874 

0774 

81 


875 









0UT3: OUTPUT 3 DIGIT DECIMAL NUMBER 


THIS ROUTINE OUTPUTS TO THE SERIAL PORT 
A DECIMAL VALUE (0-255) EQUIVALENT TO THE UNSIGNED 
CONTENTS OF THE ACCUMULATOR. X AND A ARE PRESERVED. 


0UT3 

STA 

A1 

SAVE A 


STX 

XI 

SAVE X 


LDX 

#$30 

ASCII ZERO 

0UT31 

CMP 

#99 

HUNDREDS DIGIT? 


BLS 

0UT32 

SKIP IF NONE LEFT 


INCX 




SUB 

#100 

KNOCK ONE OFF 


BRA 

0UT31 

CHECK AGAIN 

0UT32 

CPX 

#$30 

WERE THERE ANY? 


BEQ 

0UT34 

SKIP IF NOT 

OUT33 

BRCLR 

TORE , SCSR,OUT33 



STX 

SCI 

SEND HUNDREDS DIGIT 


LDX 

#$B0 

BIT 7 IS FLAG 

OUT34 

CMP 

#9 

TENS DIGIT? 


BLS 

0UT35 

SKIP IF NONE LEFT 


INCX 




SUB 

#10 

KNOCK ONE OFF 


BRA 

0UT34 

CHECK AGAIN 

0UT35 

CPX 

#$30 

WERE THERE ANY? 


BEQ 

0UT37 

SKIP IF NOT 


ASLX 


CLEAR UPPER BIT 


ASRX 



0UT36 

BRCLR 

TORE, SCSR, 0UT36 



STX 

SCI 

SEND TENS DIGIT 

OUT37 

BRCLR 

TDRE,SCSR,OUT37 



ADD 

#$30 

MAKE IT ASCII 


STA 

SCI 

SEND ONES DIGIT 


LDX 

XI 

RESTORE X 


LDA 

A1 

RESTORE A 


RTS 
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876 





t***************************************************************' 

877 





-*■ 


HEXIN: GET ONE HEX DIGIT 

878 





* 




879 





* 


THIS SUBROUTINE 

WILL WAIT FOR THE RECEIPT 

880 





* 

BY THE 

SERIAL PORT (SCI) OF A HEX DIGIT (0-9. A-F), 

881 





* 

THEN ECHO IT BACK TO THE 

SERIAL PORT, AND RETURN 

882 





* 

WITH THE NUMERIC VALUE OF THE CHARACTER IN THE 

883 





* 

ACCUMULATOR. IF A DISALLOWED VALUE IS RECEIVED. 

884 





* 

IT IS 

IGNORED. A VALID HEX DIGIT MUST BE 

885 





* 

RECEIVED IN ORDER TO EXIT THIS SUBROUTINE. 

886 





* 




887 









888 

0775 

OB 

10 

FD 

HEXIN 

BRCLR 

RDRF.SCSR, HEXIN 


889 

0778 

B6 

11 



LDA 

SCI 

GET CHARACTER 

890 

077A 

A4 

7F 



AND 

#$7F 

MASK UPPER BIT 

891 

077C 

97 




TAX 



892 

077D 

A1 

30 



CMP 

ro H 


893 

077F 

25 

F4 



BLO 

HEXIN 

OUT OF BOUNDS 

894 

0781 

A1 

39 



CMP 

#"9" 


895 

0783 

22 

04 



BHI 

HEX2 

CHECK FOR (A-F) 

896 

0785 

AO 

30 



SUB 

#$30 

MAKE IT A NUMBER 

897 

0787 

20 

OD 



BRA 

HECHO 

ECHO IT 

898 

0789 

A4 

5F 


HEX2 

AND 

#$5F 

LOWER CASE OK 

899 

078B 

A1 

41 



CMP 

#"A" 


900 

078D 

25 

E6 



BLO 

HEXIN 

OUT OF BOUNDS 

901 

078F 

A1 

46 



CMP 

#"F" 


902 

0791 

22 

E2 



BHI 

HEXIN 

OUT OF BOUNDS 

903 

0793 

97 




TAX 



904 

0794 

AO 

37 



SUB 

#$37 

MAKE IT A NUMBER 

905 

0796 

OF 

10 

FD 

HECHO 

BRCLR 

TDRE, SCSR, HECHO 


906 

0799 

BF 

11 



STX 

SCI 


907 

079B 

81 




RTS 



908 









909 





****************************************************** ********** 

910 





* 


CURSUB: 

OUTPUT FROM CURRENT VALUES LIST 

911 





* 




912 





* 


THIS ROUTINE WILL OUTPUT A TEXT MESSAGE FROM 

913 





* 

THE SEQUENCE OF TEXT MESSAGES BEGINNING AT LABEL 

914 





* 

"CV n . 

THE INDEX REGISTER CONTAINS UPON ENTRY 

915 





* 

THE OFFSET INTO THIS LIST. NOTE THAT THIS MEANS 

916 





★ 

THAT THE ENTIRE LIST CAN BE NO MORE THAN 256 BYTES. 

917 





* 

A AND 

X ARE DESTROYED. 


918 





* 




919 

079C 








920 

079C 

D6 

OE 

55 

CUR5UB 

LDA 

C V,X 

GET CHARACTER 

921 

079F 

A1 

03 



CMP 

#ETX 

END OF MESSAGE? 

922 

07A1 

27 

08 



BEQ 

CURIO 

CURTAINS! GET IT? 

923 

07A3 

OF 

10 

FD 

CUR1 

BRCLR 

TDRE, SCSR. CUR1 

WAIT FOR TDRE 

924 

07A6 

B7 

11 



STA 

SCI 

SEND IT 

925 

07A8 

5C 




INCX 


POINT TO NEXT CHARACTER 

926 

07A9 

20 

FI 



BRA 

CURSUB 

REPEAT UNTIL DONE 

927 

07AB 

81 



CURIO 

RTS 


YOU'RE DONE FOR 

928 
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929 


930 


931 


932 


933 


934 


935 


936 


937 


938 


939 


940 


941 


942 


943 

07 AC 

944 

07AE 

945 

07B1 

946 

07B4 

947 


948 


949 


950 


951 


952 


953 


954 

07B6 

955 

07B8 

956 

07BA 

957 

07BC 

958 


959 


960 


961 


962 


963 


964 


965 

07BF 

966 

07C1 

967 

07C3 

968 

07C5 

969 


970 


971 


972 


973 


974 


975 


976 

07C8 

977 

07CA 

978 

07CC 

979 

07CE 

980 



IB 12 
CD 05 5E 
CD 05 67 
20 FB 


A6 04 
B7 51 
11 5C 
CC 07 AC 


A6 06 
B7 51 
11 5C 
CC 07 AC 


A6 08 
B7 51 
11 5C 
CC 07 AC 


AUTONOMOUS SCAN MODES 


* * * * * 






MSLOOP: MAIN SCAN LOOP 


MSLOOP IS THE MAIN LOOP FOR THE NORMAL " n 
SCANS PLUS CALIBRATE, THEN REPEAT” MODE OF OPERATION. 
IT IS ENTERED FROM MODES 1-10. 


MSLOOP 

BCLR 

TOIEJCR 

DISABLE TOF INTERRUPTS 


JSR 

ASUB 


MSL1 

JSR 

ASUB1 

ASUB SECONDARY ENTRY POINT 


BRA 

MSL1 



* MODE 1: 4 SCANS PER CALIBRATE 

* 

* MODE 1 HAS CCW RETRACE. 


M0DE1 LDA 

#4 

FOUR SCANS PER CALIBRATE 

STA 

SCANS 


BCLR 

RT, FLAG 

CCW RETRACE 

JMP 

MSLOOP 

BEGIN SCAN MODE 


* MODE 2: 6 SCANS PER CALIBRATE 


* 

★ 


MODE 2 1 

HAS CCW RETRACE. 

M0DE2 

LDA 

#6 

SIX SCANS PER CALIBRATE 


STA 

SCANS 



BCLR 

RT, FLAG 

CCW RETRACE 


JMP 

MSLOOP 

BEG IN. SCAN MODE 


******* 


★★★A************************************************* 


MODE 3: 8 SCANS PER CALIBRATE 


* MODE 3 HAS CCW RETRACE. 

* 


M0DE3 LDA #8 

STA SCANS 

BCLR RT, FLAG 

JMP MSLOOP 

PAG 


EIGHT SCANS PER CALIBRATE 

CCW RETRACE 
BEGIN SCAN MODE 
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981 

982 

983 


* MODE 4: 10 SCANS PER CALIBRATE 


984 




* 


MODE 4 HAS CCW RETRACE. 

985 




* 



986 







987 

O/Dl 

A6 

OA 

MODE 4 

LDA 

#10 TEN SCANS PER CALIBRATE 

988 

07D3 

B7 

51 


STA 

SCANS 

989 

07D5 

11 

5C 


BCLR 

RT,FLAG CCW RETRACE 

990 

07D7 

CC 

07 AC 


JMP 

MSLOOP BEGIN SCAN MODE 

991 







992 




************************************************************ 

993 




★ 


MODE 5: 12 SCANS PER CALIBRATE 

994 




* 



995 




* 


MODE 5 HAS CCW RETRACE. 

996 




if 



997 







998 

07DA 

A6 

OC 

M0DE5 

LDA 

#12 TWELVE SCANS PER CALIBRATE 

999 

07 DC 

B7 

51 


STA 

SCANS 

1000 

07DE 

11 

5C 


BCLR 

RT,FLAG CCW RETRACE 

1001 

07E0 

CC 

07 AC 


JMP 

MSLOOP BEGIN SCAN MODE 

1002 







1003 





1004 




A 


MODE 6: 14 SCANS PER CALIBRATE 

1005 




* 



1006 




A 


MODE 6 HAS CCW RETRACE. 

1007 




A 



1008 







1009 

07E3 

A6 

OE 

M0DE6 

LDA 

#14 FOURTEEN SCANS PER CALIBRATE 

1010 

07E5 

B7 

51 


STA 

SCANS 

1011 

07E7 

11 

5C 


BCLR 

RT, FLAG CCW RETRACE 

1012 

07E9 

CC 

07 AC 


JMP 

MSLOOP BEGIN SCAN MODE 

1013 







1014 




************************************************************ 

1015 




A 


MODE 7: 16 SCANS PER CALIBRATE 

1016 




* 



1017 




A 


MODE 7 HAS CCW RETRACE. 

1018 




A 



1019 







1020 

07EC 

A6 

10 

M0DE7 

LDA 

#16 SIXTEEN SCANS PER CALIBRATE 

1021 

07EE 

B7 

51 


STA 

SCANS 

1022 

07F0 

11 

5C 


BCLR 

RT, FLAG CCW RETRACE 

1023 

07F2 

CC 

07 AC 


JMP 

MSLOOP BEGIN SCAN MODE 


1024 

1025 
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* MODE 8: 4 SCANS PER CALIBRATE 

* 

* MODE 8 IS IDENTICAL TO MODE 1 EXCEPT THAT THE 

* REFLECTOR RETRACE IS CLOCKWISE. AT HIGHER SPEED. 


1033 

07F5 

A6 04 

M0DE8 LDA 

#4 

1034 

07F7 

B7 51 

STA 

SCANS 

1035 

07F9 

10 5C 

BSET 

RT, FLAG 

1036 

07FB 

ID 5C 

BCLR 

HS f FLAG 

1037 

07FD 

CC 07 AC 

JMP 

MSLOOP 


#SCANS 
CW RETRACE 
USE FASTER MOVE 


****** itr**********************************************^^^^^ 

* MODE 9: 6 SCANS PER CALIBRATE 

* 

MODE 9 IS IDENTICAL TO MODE 2 EXCEPT THAT THE 
* REFLECTOR RETRACE IS CLOCKWISE. AT HIGHER SPEED. 


1045 

0800 

A6 

06 


M0DE9 

LDA 

#6 


1046 

0802 

B7 

51 



STA 

SCANS 

#SCANS 

1047 

0804 

10 

5C 



BSET 

RT, FLAG 

CW RETRACE 

1048 

0806 

ID 

5C 



BCLR 

HS, FLAG 

USE FASTER MOVE 

^ 1049 

0808 

CC 

07 

AC 


JMP 

MSLOOP 


1050 









1051 






1052 





* 



MODE 10: 8 SCANS PER CALIBRATE 

“ 1053 





* 




1054 





* 


MODE 10 

IS IDENTICAL TO MODE 3 EXCEPT THAT THE 

1055 





* 

REFLECTOR RETRACE IS CLOCKWISE, AT HIGHER SPEED. 

_ 1056 









1057 

080 B 

A6 

08 


MODE 10 

LDA 

#8 


1058 

080D 

B7 

51 



STA 

SCANS 

#SCANS 

1059 

080 F 

10 

5C 



BSET 

RT, FLAG 

CW RETRACE 

1060 

0811 

ID 

5C 



BCLR 

HS f FLAG 

USE FASTER MOVE 

1061 

0813 

CC 

07 

AC 


JMP 

MSLOOP 


1062 









1063 





********************** **************************************** 

1064 





* 



MODE 11: 10 SCANS PER CALIBRATE 

1065 





* 




1066 





* 


MODE 11 

IS IDENTICAL TO MODE 4 EXCEPT THAT THE 

— 1067 





* 

REFLECTOR RETRACE IS CLOCKWISE. AT HIGHER SPEED. 

1068 









1069 

0816 

A6 

OA 


MODE 11 

LDA 

#10 


1070 

0818 

B7 

51 



STA 

SCANS 

#SCANS 

1071 

081 A 

10 

5C 



BSET 

RT, FLAG 

CW RETRACE 

1072 

081C 

ID 

5C 



BCLR 

HS, FLAG 

USE FASTER MOVE 

1073 

081E 

CC 

07 . 

AC 


JMP 

MSLOOP 
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1076 





************************************************************** 

1077 





* 



MODE 12 

1078 





* 




1079 





* 


MODE 12 

IMPLEMENTS A "SCAN-IN-PLACE" FUNCTION. 

1080 





* 

THE REFLECTOR WILL MOVE TO P0SITI0N=26, SO AS TO STARE 

1081 





* 

STRAIGHT DOWN, THEN BEGIN TAKING A QUANTITY OF DATA 

1082 





* 

EQUIVALENT TO THAT OF "n" SCANS OF 50 SAMPLES EACH. 

1083 





* 

THEN A 

NORMAL CALIBRATION CYCLE WILL TAKE PLACE. AND 

1084 





★ 

THE PROCESS REPEATS UNTIL THE ESCAPE KEY IS PRESSED. 

1085 









1086 

0821 

CD 

06 

DB 

M0DE12 

JSR 

RETURN 


1087 

0824 

A6 

1A 


M12A 

LDA 

#26 


1088 

0826 

99 




SEC 



1089 

0827 

CD 

09 

30 


JSR 

MOVE 

GO STARE NADIR 

1090 

082A 

B7 

00 



STA 

PORTA 

OUTPUT POSITION 

1091 

082C 

4F 




CLRA 


SCAN #0 

1092 

082D 

B7 

52 


M12B 

STA 

SCANUM 

SAVE SCAN # 

1093 

082 F 

A6 

32 



LDA 

#50 


1094 

0831 

B7 

59 



STA 

GSTEP 

FAKE STEP COUNTER 

1095 

0833 

CD 

05 

B5 

M12C 

JSR 

GSUB 

GET DATA FOR CURRENT POS 

1096 

0836 

3A 

59 



DEC 

GSTEP 


1097 

0838 

26 

F9 



BNE 

M12C 

DONE WITH "SCAN" ? 

1098 

083A 

B6 

52 



LDA 

SCANUM 


1099 

083C 

4C 




INCA 



1100 

083D 

B1 

51 



CMP 

SCANS 


1101 

083 F 

26 

EC 



BNE 

M12B 

LAST "SCAN" ? 

1102 

0841 

CD 

09 

1C 


JSR 

CAL 

GO CALIBRATE 

1103 

0844 

OB 

10 

DA 


BRCLR 

RDRF.SCSR.M0DE12 

1104 

0847 

B6 

11 



LDA 

SCI 

GET CHARACTER 

1105 

0849 

A4 

7F 



AND 

#$7F 


1106 

084B 

A1 

IB 



CMP 

#ESC 

ESCAPE? 

1107 

084D 

26 

D5 



BNE 

M12A 

CONTINUE IF NOT 

1108 

084F 

CC 

04 

EO 


JMP 

MODEO 

IF SO f MONITOR MODE 

1109 









1110 





**************** ******************************************** 

ini 





* 



MODE 13 

1112 





* 




1113 





* 


MODE 13 

SIMPLY PRODUCES A 1 KHz SQUARE 

1114 





* 

WAVE ON 

BIT 7 OF PORT A, FOREVER. 

1115 





* 




1116 









1117 

0852 

A6 

OA 


M0DE13 

LDA 

#10 


1118 

0854 

98 




CLC 



1119 

0855 

CD 

OB 

17 


JSR 

WAIT 

500uSEC LOW 

1120 

0858 

IE 

00 



BSET 

7 , PORTA 

TRANSITION 

1121 

085A 

A6 

OA 



LDA 

#10 


1122 

085C 

98 




CLC 



1123 

085D 

CD 

OB 

17 


JSR 

WAIT 

500uSEC HIGH 

1124 

0860 

IF 

00 



BCLR 

7 , PORTA 

TRANSITION 

1125 

0862 

20 

EE 



BRA 

M0DE13 

REPEAT 

1126 
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************************************************************ 

* MODE 14 

★ 

* MODE 14 IS A DIAGNOSTIC MODE. THE 

* PURPOSE IS TO GO TO THE INDEX, THEN STEP THE 

* STEPPER MOTOR, USING A FAST STEP ALGORITHM, 

* A REVOLUTION CLOCKWISE, A REVOLUTION 

* COUNTERCLOCKWISE, THEN WAIT FOR A SERIAL 

* PORT CHARACTER BEFORE REPEATING. IT PROMPTS 

* FOR A KEYPRESS UPON ENTRY SO AS TO AVOID 

* ACCIDENTAL INJURY TO MAN OR MACHINE. 


1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 0864 CD 06 DB 

1141 0867 AE F2 

1142 0869 CD 07 9C 

1143 086C OB 10 FD 

1144 086 F B6 11 

1145 0871 CD OA BO 

1146 0874 B6 50 

1147 0876 99 

1148 0877 CD 09 30 

1149 087A CD OA BO 

1150 087D B6 50 

1151 087 F 98 

1152 0880 CD 09 30 

1153 0883 20 E2 

1154 

1155 

1156 

1157 

1158 

1159 

1160 
1161 
1162 

1163 

1164 

1165 0885 3F 00 

1166 0887 CD 05 B5 

1167 088A 3C 00 

1168 088C 20 F9 

1169 

1170 


MODE 14 

JSR 

RETURN 

M14 

LDX 

# ( KPMSG-CV ) 


JSR 

CURSUB 

M14A 

BRCLR 

RDRF, SCSR, M14A 


LDA 

SCI 


JSR 

GETPOS 


LDA 

POS 


SEC 



JSR 

MOVE 


JSR 

GETPOS 


LDA 

POS 


CLC 



JSR 

MOVE 


BRA 

M14 


MODE 15 

CLR 

PORTA 

M15 

JSR 

GSUB 


INC 

PORTA 


BRA 

M15 


PROMPT FOR KEYPRESS 
GET KEY 

GET CURRENT POSITION 
CLOCKWISE 


COUNTERCLOCKWISE 


GET DATA 

OUTPUT NEW "FAKE" POSITION 
REPEAT 


★★★★★★A***************************************************** 

* MODE 15 

* 

* MODE 15 IS A DIAGNOSTIC MODE. THERE IS NO 

* EXIT FROM THIS MODE. ALL IT DOES IS MAKE PORT "A" 

* ALL OUTPUT, THEN PROCEED TO OUTPUT CONSECUTIVE 8 BIT 

* VALUES TO PORT "A", WHILE OPERATING THE SAMPLE/HOLD, 

* INTEGRATE/DUMP. AND DATA VALID LINES. 
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i 171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 
1181 
1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 
1201 
1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 
1227 


AMPR 




MOTION RELATED SUBROUTINES 


SCAN 





* 

ASSUMES INDEX POSIT 




* 

SCANS 

THROUGH POSIT 




* 

TOTAL 

OF "N" SCANS 1 




★ 

POSIT I0N=50 OF SCAN 




* 

•k 

VARIABLE "SCANS". 

088E 

18 01 


SCAN 

BSET 

I NT # PORTB 

0890 

IE 01 



BSET 

TEST, PORTB 

0892 

A6 00 



LDA 

#0 

0894 

99 



SEC 


0895 

CD OB 

17 


JSR 

WAIT 

0898 

A6 00 



LDA 

#0 

089A 

98 



CLC 


0898 

CD OB 

17 


JSR 

WAIT 

089E 

A6 A6 



LDA 

#166 

08A0 

99 



SEC 


08A1 

CD OB 

17 


JSR 

WAIT 

08A4 

A6 00 



LDA 

#0 

08A6 

98 



CLC 


08A7 

CD OB 

17 


JSR 

WAIT 

08AA 

A6 A6 



LDA 

#166 

08AC 

99 



SEC 


08AD 

CD OB 

17 


JSR 

WAIT 

08BO 

A6 00 



LDA 

#0 

08B2 

98 



CLC 


08B3 

CD OB 

17 


JSR 

WAIT 

08B6 

A6 A6 



LDA 

#166 

08B8 

99 



SEC 


08B9 

CD OB 

17 


JSR 

WAIT 

08BC 

A6 00 



LDA 

#0 

08 BE 

98 



CLC 


08BF 

CD OB 

17 


JSR 

WAIT 

08C2 

A6 A6 



LDA 

#166 

08C4 

99 



SEC 


08C5 

CD OB 

17 


JSR 

WAIT 

08C8 

A6 00 



LDA 

#0 

08CA 

98 



CLC 


08CB 

CD OB 

17 


JSR 

WAIT 

08CE 

A6 85 



LDA 

#133 

08D0 

98 



CLC 


08D1 

CD OB 

17 


JSR 

WAIT 

08D4 

ID 01 



BCLR 

NVAL, PORTB 

08D6 

1A 01 



BSET 

SMPL, PORTB 

08D8 

A6 21 



LDA 

#33 

08DA 

99 



SEC 


08DB 

CD OB 

17 


JSR 

WAIT 

08DE 

A6 00 



LDA 

#0 

08E0 

98 



CLC 


08E1 

CD OB 

17 


JSR 

WAIT 


INTEGRATE 

TIME SCAN CYCLE 

STEP 1 IMMEDIATELY 

/ 


\ 

8.3 MS 

/ 

35 uS 

\ 

8.3 MS 

/ 

35 uS 

\ 

8.3 MS 

/ 

35 uS 

\ 

8.3 MS 

/ 

35 uS 

\ 

6.65 MS 
STAY LOW 

DATA NOT VALID 
SAMPLE 

1.65 MS 

/ 


35 uS 
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1228 

08E4 

A6 

A6 


LDA 

1229 

08E6 

98 



CLC 

1230 

08E7 

CO 

OB 17 


JSR 

1231 

08EA 

IB 

01 


BCLR 

1232 

08EC 

1C 

01 


BSET 

1233 

08EE 

A6 

55 


LDA 

1234 

08F0 

B7 

ID 


STA 

1235 

08F2 

43 



COMA 

1236 

08F3 

B7 

ID 


STA 

1237 

08F5 

19 

01 


BCLR 

1238 

08F7 

CD 

OA BO 


JSR 

1239 

08FA 

B6 

50 


LDA 

1240 

08FC 

B1 

53 


CMP 

1241 

08FE 

27 

04 


BEQ 

1242 

0900 

B7 

00 

SCAN1 

STA 

1243 

0902 

20 

8A 


BRA 

1244 

0904 

B6 

52 

SCAN2 

LDA 

1245 

0906 

4C 



INCA 

1246 

0907 

B1 

51 


CMP 

1247 

0909 

27 

10 


BEQ 

1248 

090B 

B7 

52 


STA 

1249 

090D 

B6 

5C 


LDA 

1250 

090F 

44 



LSRA 

1251 

0910 

A6 

01 


LDA 

1252 

0912 

IF 

01 


BCLR 

1253 

0914 

CD 

09 30 


JSR 

1254 

0917 

14 

01 


BSET 

1255 

0919 

20 

E5 


BRA 

1256 

091B 

81 


SCAN3 

RTS 

1257 






1258 




************* 

1259 




* 


1260 




* 


1261 




* 


1262 




* 

CYCLE 

1263 




* 


1264 






1265 

091C 

CD 

05 EO 

CAL 

JSR 

1266 

091F 

AE 

14 


LDX 

1267 

0921 

CD 

OA D8 


JSR 

1268 

0924 

CD 

05 7F 


JSR 

1269 

0927 

AE 

14 


LDX 

1270 

0929 

CD 

OA 08 


JSR 

1271 

092C 

CD 

06 DB 


JSR 

1272 

092 F 

81 



RTS 

1273 





PAG 


#166 

8.3 MS 


NO PULSE 

WAIT 


HOLD,PORTB 

HOLD 

VAL,PORTB 

DATA VALID 

#$55 

KICK THE DOG 

COPRR 


COPRR 


DUMP, PORTB 

DUMP 

GETPOS 


POS 


EOS 

END OF SCAN? 

SCAN2 


PORTA 

OUTPUT POSITION 

SCAN 

NEXT POSITION IN SCAN 

SCANUM 

GET CURRENT SCAN NUMBER 

SCANS 

LAST SCAN IN SET? 

SCAN3 

OK; DONE 

SCANUM 

SAVE NEW SCAN NUMBER 

FLAG 



RT, FLAG-->CARRY 

#1 


TEST, PORTB 

TIME SCAN CYCLE 

MOVE 

RETRACE 

CW, PORTB 

SCAN DIR-CW 

SCAN1 

ESTABLISH INITIAL POSITION 

r******************************************* 

CAL: 

CALIBRATION CYCLE 

THIS SUBROUTINE EXECUTES A CALIBRATION 


HSUB 

GO TO HOT LOAD 

#20 


ACQ 

20 INTEGRATION TIMES 

CSUB 

GO TO COLD LOAD 

#20 


ACQ 

20 INTEGRATION TIMES 

RETURN 

GOTO INDEX 
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*************************************************************** 

* MOVE: MOVE TO DESTINATION 

* 

* THIS SUBROUTINE HILL CAUSE THE STEPPER MOTOR 

* TO MOVE TO THE DESTINATION GIVEN IN THE ACCUMULATOR. 

* THE DIRECTION IS GIVEN IN THE CARRY BIT, WHERE A SET 

* CARRY IS CLOCKWISE. IF THE CURRENT POSITION IS THE 

* DESTINATION, ONE FULL REVOLUTION WILL OCCUR. 

* ABSOLUTE POSITION (1-200) WILL BE STORED IN ”POS" AND 

* RETURNED IN THE ACCUMULATOR. WHILE IN MOTION THE 

* VALUE $FF IS OUTPUT TO PORT A. WHEN THE MOVE IS DONE 

* THE DESTINATION POSITION IS OUTPUT TO PORT A. 


AMPR 



1274 






1275 






1276 






1277 






1278 






1279 






1280 






1281 






1282 





— 

1283 






1284 






1285 






1286 






1287 






1288 

0930 

14 

01 



1289 

0932 

25 

02 


— 

1290 

0934 

15 

01 



1291 

0936 

AE 

FF 



1292 

0938 

BF 

00 



1293 

093A 

B7 

5D 



1294 

093C 

CD 

OA 

77 


1295 

093F 

26 

04 



1296 

0941 

A6 

C8 


— 

1297 

0943 

20 

36 



1298 

0945 

A1 

01 



1299 

0947 

26 

03 



1300 

0949 

CC 

OA 

46 

’ 

1301 

094C 

B7 

5B 



1302 

094E 

A1 

28 



1303 

0950 

22 

29 



1304 

0952 

13 

5C 



1305 

0954 

47 




1306 

0955 

24 

02 



1307 

0957 

12 

5C 


’ — 

1308 

0959 

CD 09 

C4 


1309 

095C 

03 

5C 

OA 


1310 

095F 

1A 

5A 



1311 

0961 

99 




1312 

0962 

CD OA 

06 


1313 

0965 

34 

5A 



1314 

0967 

26 

F8 


— 

1315 

0969 

B6 

5D 



1316 

096B 

CD 

OA 

77 


1317 

096E 

27 

4C 



1318 

0970 

B1 

5B 



1319 

0972 

22 

3A 



1320 

0974 

B7 

5B 



1321 

0976 

CD 

09 

E2 


1322 

0979 

20 

2A 



1323 

09 7 B 

A6 

14 



1324 

09 7D 

CD 

09 

C4 


1325 

0980 

1A 

5A 



1326 

0982 

99 




1327 

0983 

CD 

OA 

06 


1328 

0986 

34 

5A 



1329 

0988 

24 

F8 



1330 

098A 

B6 

5D 



* 


MOVE 

BSET 

CW,P0RTB 


BCS 

MVO 


BCLP. 

CCW, PORTB 

MVO 

LDX 

#$FF 


STX 

PORTA 


STA 

DEST 


JSR 

NSTEP 


BNE 

MV1 


LDA 

#200 


BRA 

MV6 

MV1 

CMP 

#1 


BNE 

MV2 


JMP 

STEP 

MV2 

STA 

MPREV 


CMP 

#40 


BHI 

MV6 


BCLR 

ODD, FLAG 


ASRA 



BCC 

MV3 


BSET 

ODD, FLAG 

MV3 

JSR 

RAMPUP 


BRCLR 

ODD, FLAG, MV5 


BSET 

5,MSC 

MV4 

SEC 



JSR 

RLOOP 


LSR 

MSC 


BNE 

MV4 

MVS 

LDA 

DEST 


JSR 

NSTEP 


BEQ 

MV 15 


CMP 

MPREV 


BHI 

MV12 


STA 

MPREV 


JSR 

RAMPDN 


BRA 

MV11 

MV6 

LDA 

#20 


JSR 

RAMPUP 

MV7 

BSET 

5, MSC 

MV8 

SEC 



JSR 

RLOOP 


LSR 

MSC 


BCC 

MV8 


LDA 

DEST 


ASSUME CW 
SET CARRY=CW 
NO, IT WAS CCW 
INFORM RECORDER 
MOTION TO BEGIN 
SAVE DESTINATION 
CALCULATE # STEPS 
FULL REVOLUTION? 

YES 

>40 STEPS 
JUST 1? 

ONE STEP, THEN EXIT 
PRIME THE PUMP 

>40 STEPS? 

NO; <=40 

HALF UP, HALF DOWN 
ODD ISTEPS? 

YES; FLAG IT 
RAMP UP 

COUNT TO 6 

ODD STEP AT HIGHEST SPEED 

FULL STEP? 

HOW FAR TO GO? 

DONE? 

GETTING CLOSER? 

OVERSHOT? 

NO; SAVE NEW DIST. 

RAMP DOWN 

MAKE SURE IT'S THERE 

FULL RAMP LENGTH 

RAMP UP 

COUNT TO 6 

YES WE WANT A PULSE 

1 uSTEP AT FULL SPEED 


FULL STEP YET? 
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1331 

098C 

CD 

OA 

77 


JSR 

NSTEP 

HOW FAR TO GO? 

1332 

098F 

27 

2B 



BEQ 

MV 15 

DONE? 

1333 

0991 

B1 

5B 



CMP 

MPREV 

GETTING CLOSER? 

1334 

0993 

22 

19 



BHI 

MV12 

OVERSHOT DESTINATION? 

1335 

0995 

B7 

5B 



STA 

MPREV 

NO: SAVE NEW DIST. 

1336 

0997 

AO 

14 



SUB 

#20 

RUN INTO RAMPDOWN AREA? 

1337 

0999 

27 

05 



BEQ 

MV9 

FULL LENGTH RAMPDOWN 

1338 

099B 

22 

E3 



BHI 

MV 7 

NO RAMPDOWN YET 

1339 

0990 

40 




NEGA 


OVERSHOT RAMPDOWN 

1340 

099E 

20 

02 



BRA 

MV10 

RECALCULATE RAMPDOWN LENGTH 

1341 

09A0 

A6 

14 


MV9 

LDA 

#20 

FULL RAMP DOWN 

1342 

09A2 

CD 

09 

E2 

MV10 

JSR 

RAMPDN 

RAMP DOWN 

1343 

09A5 

B6 

5D 


MV 11 

LDA 

DEST 


1344 

09A7 

CD 

OA 

77 


JSR 

NSTEP 

HOW FAR TO GO? 

1345 

09 AA 

27 

10 



BEQ 

MV15 

DONE? 

1346 

09AC 

2A 

09 



BPL 

MV14 

JUST SHY OF TARGET 

1347 

09AE 

04 

01 

04 

MV12 

BRSET 

CW,P0RTB,MV13 

OVERSHOT: REVERSE DIRECTION 

1348 

09B1 

14 

01 



BSET 

CW.PORTB 


1349 

09B3 

20 

02 



BRA 

MV14 


1350 

09B5 

15 

01 


MV13 

BCLR 

CCW, PORTB 


1351 

09B7 

CD 

OA 

46 

MV14 

JSR 

STEP 


1352 

09BA 

20 

E9 



BRA 

MV 11 

CHECK AGAIN 

1353 

09BC 

CD 

OA 

BO 

MV15 

JSR 

GETPOS 


1354 

09BF 

B6 

50 



LDA 

POS 

EXIT W/POS IN A 

1355 

09C1 

B7 

00 



STA 

PORTA 

SEND TO RECORDER 

1356 

09C3 

81 




RTS 




1357 PAG 
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1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 


AMPR 

* **************************** ****** *********************** ********** 

* RAMPUP 

★ 

* THIS SUBROUTINE USES A TABLE OF MOTOR ACCELERATION 





★ 

CURVE 

MICROSTEP DELAY 

VALUES TO ACCELERATE THE MOTOR TO HIGH 




* 

SPEED 

. UPON ENTRY, THE ACCUMULATOR CONTAINS THE NUMBER OF 




★ 

FULL : 

STEPS TO RAMP UP 

(1-20) . 

09C4 

AE 

OC 

RAMPUP 

LDX 

#12 

2 BYTES x 6 uSTEPS 

09C6 

42 



MUL 


X=0 AFTER 

09C7 

B7 

5F 


STA 

RLEN 

#BYTES OF RAMP 

09C9 

1A 

5A 


BSET 

5, MSC 

COUNT TO 6 

09CB 

99 


RUO 

SEC 


YES WE WANT A PULSE 

09CC 

AD 

38 


BSR 

RLOOP 

ONE MICROSTEP 

09CE 

- 34 

5A 


LSR 

MSC 


O9D0 

24 

09 


BCC 

RU2 

FULL STEP YET? 

09D2 

B6 

5D 

RU1 

LDA 

DEST 


09D4 

CD 

OA 77 


JSR 

NSTEP 

HOW FAR TO GO? 

09D7 

B7 

5B 


STA 

MPREV 

SAVE DISTANCE 

09D9 

1A 

5A 


BSET 

5, MSC 

RESET COUNTER 

09DB 

5C 


RU2 

INCX 


POINT TO NEXT DATA 

09DC 

5C 



INCX 



09DD 

B3 

5F 


CPX 

RLEN 

DONE RAMPING? 

09DF 

26 

EA 


BNE 

RUO 

REPEAT IF NOT 

09E1 

81 


RU3 

RTS 






****★*********★★****★*★★★***★★*************★****★******■*******★***■** 




* 

it 


RAMPDN 




★ 


THIS SUBROUTINE USES A TABLE OF MOTOR DECELERATION 




* 

CURVE 

MICROSTEP DELAY 

VALUES TO DECELERATE THE MOTOR TO 




* 

LOW SPEED OR STOP. UPON ENTRY. THE ACCUMULATOR CONTAINS 




it 

THE NUMBER OF FULL STEPS TO RAMP DOWN (1-20). 

09E2 

AE 

OC 

RAMPDN 

LDX 

#12 

2 BYTES x 6 uSTEPS 

09E4 

42 



MUL 


X=0 AFTER 

09E5 

97 



TAX 


NOW START AT TOP 

09E6 

1A 

5A • 


BSET 

5 .MSC 

COUNT TO 6 

09E8 

99 


RDO 

SEC 


YES WE WANT A PULSE 

09E9 

AD 

IB 


BSR 

RLOOP 

ONE MICROSTEP 

09EB 

34 

5A 


LSR 

MSC 


09ED 

24 

OF 


BCC 

RD2 

FULL STEP YET? 

09EF 

B6 

5D 

RD1 

LDA 

DEST 


09F1 

CD 

OA 77 


JSR 

NSTEP 

HOW FAR TO GO? 

09F4 

27 

OF 


BEQ 

RD3 

AT DESTINATION? THEN QUIT 

09 F6 

B1 

5B 


CMP 

MPREV 

GETTING CLOSER? 

09F8 

22 

OB 


BHI 

RD3 

OVERSHOT? THEN QUIT 

09FA 

B7 

5B 


STA 

MPREV 

SAVE DISTANCE 

09FC 

1A 

5A 


BSET 

5 ,MSC 

RESET COUNTER 

09FE 

5A 


RD2 

DECX 


POINT TO NEXT DATA 

09FF 

5A 



DECX 



0A00 

26 

E6 


BNE 

RDO 

BOTTOM OF RAMP? 

0A02 

98 



CLC 


NO PULSE 

0A03 

AD 

01 


BSR 

RLOOP 

SETTLING TIME 

0AO5 

81 


RD3 

RTS 


LET'S "GIT" 


PAG 
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1414 




***************************★***********************★*************’ 

1415 




★ 


RLOOP 


1416 




* 




1417 




* 


THIS SUBROUTINE 

CAUSES A OELAY, FOLLOWED BY 

1418 




* 

AN OLVL 

TRANSFER. THE 

TWO BYTE DELAY VALUE IS POINTED TO 

1419 




* 

BY THE 

INDEX REGISTER. 

MS BYTE FIRST. A PULSE WILL OCCUR 

1420 




* 

IF THE 

CARRY BIT IS FOUND TO BE SET UPON ENTRY. 

1421 








1422 

0A06 

B6 

1A 

RLOOP 

LDA 

ALTH 

INHIBIT ALTL 

1423 

0A08 

B7 

16 


STA 

OCRH 

INHIBIT COMPARE 

1424 

0A0A 

24 

02 


BCC 

RLO 

C-l FOR PULSE 

1425 

OAOC 

10 

12 


BSET 

OLVL.TCR 


1426 

OAOE 

BD 

68 

RLO 

JSR 

LFETCH 

DOES LDA 7TABLE+1.X 

1427 

0A10 

BB 

IB 


ADD 

ALTL 

SUM LSB 

1428 

0A12 

B7 

57 


STA 

RTEMP 


1429 

0A14 

BD 

6C 


JSR 

HFETCH 

DOES LDA 7TABLE.X 

1430 

0A16 

B9 

16 


ADC 

OCRH 

SUM MSB 

1431 

0A18 

B7 

16 


STA 

OCRH 

OUTPUT COMPARE 

1432 

0A1A 

B6 

13 


LDA 

TSR 

CLEAR FLAGS 

1433 

0A1C 

B6 

57 


LDA 

RTEMP 


1434 

0A1E 

B7 

17 


STA 

OCRL 

OUTPUT COMPARE ENABLED 

1435 

0A20 

A6 

55 


LDA 

#$55 

KICK THE DOG 

1436 

0A22 

B7 

ID 


STA 

COPRR 


1437 

0A24 

43 



COMA 



1438 

0A25 

B7 

ID 


STA 

COPRR 


1439 

OA27 

OD 

13 FD 

RL1 

BRCLR 

0CF,TSR,RL1 

WAIT FOR OLVL TRANSFER 

1440 

0A2A 

B6 

1A 


LDA 

ALTH 

INHIBIT ALTL 

1441 

0A2C 

B7 

16 


STA 

OCRH 

INHIBIT COMPARE 

1442 

0A2E 

11 

12 


BCLR 

OLVL.TCR 

FALLING EDGE 

1443 

0A30 

B6 

IB 


LDA 

ALTL 


1444 

0A32 

AB 

OD 


ADD 

#13 

SUM LSB 

1445 

0A34 

B7 

57 


STA 

RTEMP 


1446 

0A36 

B6 

16 


LDA 

OCRH 


1447 

0A38 

A9 

00 


ADC 

#0 

SUM MSB 

1448 

0A3A 

B7 

16 


STA 

OCRH 

OUTPUT COMPARE 

1449 

0A3C 

B6 

13 


LDA 

TSR 

CLEAR FLAGS 

1450 

0A3E 

B6 

57 


LDA 

RTEMP 


1451 

0A40 

B7 

17 


STA 

OCRL 

OUTPUT COMPARE ENABLED 

1452 

0A42 

OD 

13 FD 

RL2 

BRCLR 

OCF, TSR, RL2 

WAIT FOR OLVL TRANSFER 

1453 

0A45 

81 



RTS 



1454 





PAG 
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1455 



************************************************************, 

1456 



* 


STEP: 

STEP ONE STEP 

1457 



* 




1458 



* 


THIS SUBROUTINE WILL CAUSE SIX POSITIVE 

1459 



* 


) PULSES ON THE 

STEP PULSE LINE OF THE STEPPER 

1460 



* 

MOTOR 

TRANSLATOR. WHICH IS ATTACHED TO THE OUTPUT 

1461 



* 

COMPARE LINE OF THE MICROCONTROLLER. THE WATCHDOG 

1462 



* 

TIMER 

WILL BE REFRESHED. THE STEP PULSE WIDTH IS 35 

1463 



* 

MICROSECONDS. IF THIS 

ROUTINE IS CALLED BEFORE 

1464 



* 

THE ENCODER IS IN SYNC 

, THE VARIABLE POS WILL 

1465 



★ 

REMAIN 

1 ZERO, SO AS TO 

INDICATE UNRELIABLE POSITION 

1466 



★ 

DATA FROM THE ENCODER. 


1467 



* 




1468 







1469 

0A46 

BF 67 

STEP 

STX - 

X4 


1470 

0A48 

06 01 05 


BRSET 

AWO, PORTB, STO 

WINDINGS ON? 

1471 

0A4B 

16 01 


BSET 

AWO, PORTB 

WINDINGS MUST BE ON 

1472 

0A4D 

CD OB OA 


JSR 

PULSE 

(PRIME IT) 

1473 

0A50 

CD OB OA 

STO 

JSR 

PULSE 

PULSE #1 

1474 

0A53 

18 5A 


BSET 

4,MSC 

5 MORE 

1475 

0A55 

B6 58 

ST1 

LDA 

MSTEP 

GET uSTEP DELAY 

1476 

0A57 

99 


SEC 


RISING EDGE 

1477 

0A58 

CD OB 17 


JSR 

WAIT 


1478 

0A5B 

4F 


CLRA 



1479 

0A5C 

98 


CLC 


FALLING EDGE 

1480 

0A5D 

CD OB 17 


JSR 

WAIT 


1481 

0A60 

34 5A 


LSR 

MSC 


1482 

0A62 

24 FI 


BCC 

ST1 

FULL STEP YET? 

1483 

0A64 

A6 55 


LDA 

#$55 

KICK THE DOG 

1484 

0A66 

B7 ID 


STA 

COPRR 


1485 

0A68 

43 


COMA 



1486 

0A69 

B7 ID 


‘STA 

COPRR 


1487 

0A6B 

B6 50 


LDA 

POS 

IN SYNC? 

1488 

0A6D 

27 05 


BEQ 

ST2 

CONTINUE TO REPORT 0 

1489 

0A6F 

CD OA BO 


JSR 

GETPOS 

RETURN W/POS IN A 

1490 

0A72 

B6 50 


LDA 

POS 


1491 

0A74 

BE 67 

ST2 

LDX 

X4 


1492 

0A76 

81 


RTS 



1493 




PAG 
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1494 




******************************* ************************************* 

1495 




* 


NSTEP: 

COMPUTE STEPS TO DESTINATION 

1496 




* 




1497 




* 


THIS SUBROUTINE 

COMPUTES THE NUMBER OF STEPS 

1498 




* 

BETWEEN 

THE CURRENT POSITION AND A DESTINATION GIVEN IN THE 

1499 




* 

ACCUMULATOR. THE DIRECTION OF MOVEMENT IS ASSUMED TO BE 

1500 




* 

THE CURRENT MOTOR DIRECTION. THE RESULT IS RETURNED IN 

1501 




* 

THE ACCUMULATOR. INPUT 

IS ASSUMED TO BE IN THE 1-200 RANGE 

1502 




* 




1503 








1504 

0A77 

BF 

66 

NSTEP 

STX 

X3 


1505 

0A79 

3F 

5E 


CLR 

FUDGE 

CORRECT FOR INDEX 

1506 

0A7B 

CD 

OA BO 


JSR 

GETPOS 


1507 

0A7E 

BO 

50 


SUB 

POS 

CHECK ENCODER DATA 

1508 

0A80 

27 

18 


BEQ 

NS5 

ALREADY HERE! QUIT 

1509 

0A82 

25 

07 


BLO 

NS2 


1510 

0A84 

04 

01 OB 


BRSET 

CW, PORTB, NS4 

CW? 

1511 

0A87 

AE 

38 


LDX 

#56 

NEW CORRECTION 

1512 

0A89 

20 

05 


BRA 

NS3 


1513 

0A8B 

05 

01 04 

NS2 

BRCLR 

CCW, PORTB, NS4 

CCW? 

1514 

0A8E 

AE 

C8 


LDX 

#200 

NEW CORRECTION 

1515 

0A90 

BF 

5E 

NS3 

STX 

FUDGE 


1516 

0A92 

BE 

66 

NS4 

LDX 

X3 


1517 

0A94 

BB 

5E 


ADD 

FUDGE 

ADD CORRECTION 

1518 

0A96 

04 

01 01 


BRSET 

CW, PORTB, NS5 

CW? 

1519 

0A99 

40 



NEGA 



1520 

0A9A 

81 


NS5 

RTS 


CONDITION CODES FOR "A” 

1521 








1522 




*******************************************************************1 

1523 




* 


NPOS: COMPUTE NEXT POSITION 

1524 




* 




1525 




* 


THIS ROUTINE COMPUTES A NEW POSITION, ONE STEP FROM 

1526 




★ 

THE CURRENT POSITION, BASED ON THE CURRENT MOTOR DIRECTION. 

1527 




★ 

THE RESULT IS RETURNED 

IN THE ACCUMULATOR. 

1528 




★ 




1529 








1530 

0A9B 

A6 

01 

NPOS 

LDA 

#1 

ONE STEP 

1531 

0A9D 

04 

01 01 


BRSET 

CW, PORTB, NP1 

NEG OR POS? 

1532 

0AA0 

40 



NEGA 



1533 

0AA1 

BB 

50 

NP1 

ADD 

POS 

COMPUTE 

1534 

0AA3 

26 

04 


BNE 

NP2 

ZERO? 

1535 

0AA5 

A6 

C8 


LDA 

#200 

YES;CORRECT TO 200 

1536 

0AA7 

20 

06 


BRA 

NP3 


1537 

0AA9 

A1 

C9 

NP2 

CMP 

#201 

NOT ZERO; 201? 

1538 

OAAB 

26 

02 


BNE 

NP3 

NEITHER, SO LEGAL 

1539 

OAAD 

A6 

01 


LDA 

#1 

CORRECT 201 TO 1 

1540 

OAAF 

81 


NP3 

RTS 



1541 
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1542 



*************************************************** ******** ********* 

1543 



* 


GETPOS: READ POSITION FROM ENCODER 

1544 



* 



1545 



* 


THIS SUBROUTINE READS THE HP HCTL-2000 ENCODER 

1546 



* 

INTERFACE CHIP, DOES A DIVIDE-BY-FOUR ON THE 10 BIT Ax 

1547 



* 

RESOLUTION DATA, AND CONVERTS IT TO AN 8 BIT UNSIGNED 

1548 



* 

ABSOLUTE POSITION VALUE IN THE RANGE 1-200, HHERE VALUES 

1549 



* 

INCREASE WITH CLOCKWISE MOTION, AND A VALUE OF 1 REPRESENTS 

1550 



* 

THE ENCODER INDEX. THE RESULT IS PLACED IN "POS". 

1551 



* 



1552 






1553 

0AB0 

B7 61 

GETPOS 

STA 

A2 SAVE A 

1554 

0AB2 

BF 65 


STX 

X2 SAVE X 

1555 

0AB4 

IF 5C 

GPO 

BCLR 

INDEX, FLAG 

1556 

0AB6 

13 01 


BCLR 

OE.PORTB OUTPUT ENABLE 

1557 

0AB8 

BE 02 


LDX 

PORTC HIGH BYTE 

1558 

OABA 

10 01 


BSET 

LBYTE.PORTB 

1559 

OABC 

B6 02 


LDA 

PORTC LOW BYTE 

1560 

OABE 

12 01 


BSET 

OE, PORTB OUTPUT DISABLE 

1561 

OACO 

11 01 


BCLR 

MBYTE, PORTB RESET SEL 

1562 

0AC2 

OE 5C EF 


BRSET 

INDEX, FLAG, GPO IF CORRUPTED, REPEAT 

1563 

0AC5 

56 


RORX 

SHIFT 2 BITS RIGHT 

1564 

0AC6 

46 


RORA 


1565 

0AC7 

56 


RORX 


1566 

0AC8 

46 


RORA 


1567 

0AC9 

27 05 


BEQ 

GP1 

1568 

OACB 

56 


RORX 

WHICH DIR FROM INDEX? 

3 569 

OACC 

24 02 


BCC 

GP1 

1570 

OACE 

AO 38 


SUB 

#56 SUBTRACT IF CCW 

1571 

OADO 

4C 

GP1 

INCA 

MAKE IT 1-200 

1572 

0AD1 

B7 50 


STA 

POS 

1573 

0AD3 

BE 65 


LDX 

X2 

1574 

0AD5 

B6 61 


LDA 

A2 

1575 

0AD7 

81 


RTS 


1576 






1577 



******* 

******* 

******************************************************* 

1578 



* 


ACQ: ACQUIRE DATA SETS WHILE STATIONARY 

1579 



* 



1580 



* 


THIS SUBROUTINE WILL ACQUIRE RADIOMETER DATA "n" 

1581 



* 

TIMES 

IN THE CURRENT POSITION, AND WILL OUTPUT (TO PORT A) AS 

1582 



* 

POSITION DATA THE VALUE FOUND IN THE ACCUMULATOR UPON ENTRY. 

1583 



* 

THIS IS SO THE ROUTINE MAY BE USED TO GENERATE THE 10 ZERO 

1584 



* 

POSITIONS REQUIRED TO INDICATE STARTUP OR RESTART, AS WELL AS 

1585 



★ 

THE CALIBRATION INTEGRATIONS, "n" IS FOUND IN THE X REGISTER 

1586 



* 



1587 






1588 

0AD8 

B7 00 

ACQ 

STA 

PORTA POSITION REPORT 

1589 

OADA 

BF 55 


STX 

ALOOP SAVE COUNT 

1590 

OADC 

CO 05 B5 

ACQL 

JSR 

GSUB GET DATA 

1591 

OADF 

A6 55 


LDA 

#S55 KICK THE DOG 

1592 

OAE 1 

B7 ID 


STA 

COPRR 

1593 

0AE3 

43 


COMA 


1594 

OAE 4 

B7 ID 


STA 

COPRR 

1595 

0AE6 

3A 55 


DEC 

ALOOP ONE DOWN 

1596 

OAE 8 

26 F2 


BNE 

ACQL ANY TO GO? 

1597 

OAEA 

81 


RTS 

ALL DONE 

1598 
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1599 



★★★★★★a***********************************************************! 

1600 



* 


SYNC: 

SYNCHRONIZE ENCODER LOGIC 

1601 



* 




1602 



* 


THIS SUBROUTINE CAUSES THE REFLECTOR TO MOVE UNTIL 

1603 



* 

THE ENCODER INDEX IS 

REACHED, A MAXIMUM OF ONE REVOLUTION, 

1604 



* 

SO THAT 

THE INCREMENTAL TO ABSOLUTE ENCODE LOGIC WILL SYNC 

1605 



* 

TO THE 

INDEX POSITION OF THE INCREMENTAL SHAFT ENCODER. 

1606 



* 




1607 







1608 

OAEB 

IF 12 

SYNC 

BCLR 

ICIE , TCR 

DISABLE INPUT CAPTURE IRQ 

1609 

OAED 

3D 13 


TST 

TSR 

CLEAR ANY PENDING IRQ 

1610 

OAEF 

3D 15 


TST 

ICRL 

CLEAR ICF 

1611 

0AF1 

13 12 


BCLR 

IEDG.TCR 

FALLING EDGE DETECT 

1612 

0AF3 

14 01 


BSET 

CW, PORTB 

GO CLOCKWISE 

1613 

0AF5 

CD OA 46 

SYNC1 

JSR 

STEP 

TAKE A STEP 

1614 

0AF8 

OF 13 FA 


BRCLR 

I CF # T SR r SYNC 1 

INDEX ENCOUNTERED? 

1615 

OAFB 

3D 15 


TST 

ICRL 

CLEAR ICF 

1616 

OAFD 

IE 5C 


BSET 

INDEX, FLAG 

INDEX TRANSITION 

1617 

OAFF 

A6 01 


LDA 

#1 


1618 

0B01 

B7 50 


STA 

POS 

ESTABLISH INITIAL POSITION 

1619 

0B03 

B7 00 


STA 

PORTA 


1620 

0B05 

12 12 


BSET 

IEDG,TCR 

DETECT STEP FROM INDEX 

1621 

0B07 

IE 12 


BSET 

ICIEJCR 

ENABLE INPUT CAPTURE IRQ 

1622 

0B09 

81 


RTS 


RETURN W/POS (-1) IN A 

1623 







1624 



A************************************************************** 

1625 



* 


PULSE 

: SINGLE MICROSTEP PULSE 

1626 



* 




1627 



* 


THIS SUBROUTINE SIMPLY CAUSES ONE LOW-HIGH-LOW 

1628 



* 


PULSE ON THE 1 

MOTOR MICROSTEP SEQUENCER STEP 

1629 



* 

LINE. 

THE ROUTINE IS 

USED BY THE PSUB ROUTINE IN 

1630 



* 

MICROSTEPPING, AND TO 

"PRIME" THE SEQUENCER AFTER ANY 

1631 



* 

TIME THE "ALL WINDINGS OFF" LINE MAKES A POSITIVE 

1632 



* 

TRANSITION. THE STEP 

LINE IS ASSUMED TO BE LOW UPON 

1633 



* 

ENTRY. 



1634 



* 




1635 







1636 

OBOA 

A6 00 

PULSE 

LDA 

#0 


1637 

OBOC 

99 


SEC 



1638 

OBOD 

CD OB 17 


JSR 

WAIT 

MINIMUM DELAY BEFORE LOW 

1639 

0B10 

A6 00 


LDA 

#0 

MIN TIME IS 35 uS 

1640 

0B12 

98 


CLC 



1641 

0B13 

CD OB 17 


JSR 

WAIT 

WAIT 

1642 

0B16 

81 


RTS 



1643 
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1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 
1661 
1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 
1681 
1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 


AMPR 


******** ******************************************************* 

* WAIT: WAIT ROUTINE 

* 

* THIS SUBROUTINE CAUSES A DELAY OF AN INTEGER 

* MULTIPLE OF 50 MICROSECONDS OF THE VALUE FOUND IN THE 

* ACCUMULATOR UPON ENTRY. THIS ROUTINE USES THE TIMER 

* FUNCTION, AND THE OLVL VALUE IS TRANSFERED AT THE END 

* OF THE DELAY. AS THE OUTPUT COMPARE FLAG IS SET. IF 

* THE REQUESTED DELAY IS ZERO, THERE IS A 35 uSEC DELAY. 

* THIS DELAY IS DUE TO THE OVERHEAD REQUIRED TO SET UP 

* AN "IMMEDIATE" OUTPUT COMPARE AND OLVL TRANSFER. THE 

* DESIRED OLVL LEVEL IS PASSED THROUGH THE CARRY BIT 

* UPON ENTRY; C*1 FOR HIGH. OR C=0 FOR LOW. THE DELAY 

* INCLUDES TIME FOR THE INVOCATION OF THIS ROUTINE AS 

* FOLLOWS: 

* LDA # 

* SEC (OR CLC) 

* JSR WAIT 

* 

* THE DELAY IS MEASURED TO THE OLVL TRANSFER. 

* AN ADDITIONAL 4 uS ELAPSES BEFORE PROGRAM CONTROL 

* IS RETURNED. 


0B17 

9B 

WAIT 

SEI 


0B18 

BE 1A 


LDX 

ALTH 

0B1A 

BF 16 


STX 

OCRH 

0B1C 

10 12 


BSET 

OLVLJCR 

0B1E 

25 02 


BCS 

WAITO 

0B20 

11 12 


BCLR 

OLVL.TCR 

0B22 

4D 

WAITO 

TSTA 


0B23 

26 05 


BNE 

WAIT1 

0B25 

5F 


CLRX 


0B26 

A6 OF 


LDA 

#15 

0B28 

20 09 


BRA 

WAIT2 

0B2A 

AE 19 

WAIT1 

LDX 

#25 

0B2C 

42 


MUL 


0B2D 

AO 04 


SUB 

#4 

0B2F 

24 02 


BCC 

WAIT2 

0B31 

5A 


DECX 


0832 

98 


CLC 


0B33 

BB IB 

WAIT2 

ADD 

ALTL 

0B35 

B7 56 


STA 

WTEMP 

OB37 

9F 


TXA 


0B38 

B9 16 


ADC 

OCRH 

0B3A 

B7 16 


STA 

OCRH 

0B3C 

B6 13 


LDA 

TSR 

0B3E 

B6 56 


LDA 

WTEMP 

0B40 

B7 17 


STA 

OCRL 

OB42 

OD 13 FD 

WAIT3 

BRCLR 

OCF, TSR, WAIT3 

0B45 

9A 


CLI 


0B46 

81 


RTS 





PAG 



MASK INTERRUPTS 

(3) COUNTER HIGH 

(4) 

WHAT'S OLVL GOING TO BE? 

(3) ZERO WAIT? 

(3) 

(3) 

(2) 35 uSEC 

(3) 

(2) 25 COUNTS = 50 uSEC 

(ID 

(2) COMPENSATE FOR ENTRY/EXIT 

(3) BORROW? 

(3) YES: DECREMENT UPPER BYTE 

(2) 

(3) COMPUTE NEW COUNT 

(4) 

( 2 ) 

(3) COMPUTE NEW COUNT 

(4) COMPARE INHIBITED 
(3) CLEAR OCF 

(3) 

(4) ENABLE COMPARE 

(5) WAIT FOR OCF 


( 6 ) 
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1697 

1698 

1699 

1700 


* INTERRUPT SERVICE ROUTINES 


1701 

OB47 

80 

SPIRQ 

RTI 

NOT USED 

1702 

0B48 

80 

SC IRQ 

RTI 

NOT USED 

1703 

0B49 

80 

SWI 

RTI 

NOT USED 


1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 
L714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 


IRQ: IRQ LINE SERVICE ROUTINE 

THIS ROUTINE ALLOWS FOR THE TESTING OF THE 
WATCHDOG TIMER, AS WELL AS AN EXTERNAL HARDWARE FAILURE 
FUNCTION. AS ENVISIONED, ATTACHED UNITS (POWER SUPPLIES, 
ETC.) WOULD CAUSE A FALLING EDGE UPON FAILURE, CAUSING A 
WATCHDOG TIMEOUT, FOLLOWED BY A RESTART, THEREBY CREATING 
A RECORD IN THE DATA OF THE OCCURRENCE OF A FAILURE. 

THE VERSION NUMBER OF THIS AMPR SOFTWARE IS SENT VIA 
RS-232 , FOLLOWED BY A WAIT, WHICH WILL RESULT IN THE 
TIMEOUT, WHICH IN TURN WILL CAUSE A SYSTEM RESET. 


0B4A 

AE OC 

IRQ 

LDX 

#(VER-CV) 

VERSION # 

0B4C 

CD 07 9C 


JSR 

CURSUB 


0B4F 

20 FE 

IRQ1 

BRA 

IRQ1 

WAIT FOR DEATH 


************************************************************** *** 
* TIRQ: TIMER INTERRUPT SERVICE ROUTINE 


THIS ROUTINE CHECKS FIRST FOR TIMER OVERFLOW, 
USED AS A REMINDER TO REFRESH THE WATCHDOG TIMER. THEN 
A CHECK IS MADE FOR INPUT CAPTURE, SO AS TO DETERMINE 






* 

* 

WHETHER 

THE MOTOR HAS JUST TRANSITED THE INDEX. 

0B51 

OB 

12 

OC 

TIRQ 

BRCLR 

TOIE,TCR,TIO 

SKIP IF NOT ENABLED 

0B54 

OB 

13 

09 


BRCLR 

TOF, TSR, TIO 

SKIP IF NO OVERFLOW 

0B57 

B6 

19 



LDA 

LCOUNT 

CLEAR TOF 

0B59 

A6 

55 



LDA 

#$55 

KICK THE DOG 

0B5B 

B7 

ID 



STA 

COPRR 


0B5D 

43 




COMA 



0B5E 

B7 

ID 



STA 

COPRR 


0B60 

OF 

13 

OC 

TIO 

BRCLR 

ICF, TSR, TI2 

SKIP IF NO TRANSITION 

0863 

B6 

15 



LDA 

ICRL 

CLEAR FLAG 

0B65 

IE 

5C 



BSET 

INDEX, FLAG 

FLAG INDEX TRANSITION 

0B67 

02 

12 

03 


BRSET 

IEDG, TCR, Tl 1 

SKIP IF LEAVING INDEX 

0B6A 

12 

12 



BSET 

I EDG , TCR 

NEXT LOOK FOR STEP AWAY 

0B6C 

80 




RTI 


DONE! 

0B6D 

13 

12 


Til 

BCLR 

IEDG, TCR 

NEXT LOOK FOR INDEX 

0B6F 

80 



TI2 

RTI 


GET OUT! 
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1749 

1750 

1751 

1752 

1753 

1754 

1755 


1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 
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★A*************************************************************** 

* MODES MENU (MAXIMUM 255 CHARACTERS!!! ) 


0B70 

OD 

OA 

OD 

OA 


MODES FCB 

CR, LF.CR, LF 

0B74 

4D 

4F 

44 

45 


ECC 

"MODE" 

0B78 

OD 

OA 

OD 

OA 


FCB 

CR. LF,CR, LF 

0B7C 

30 

20 

3D 

20 

4D 

ECC 

M 0 = MONITOR MODE" 

0B81 

4F 

4E 

49 

54 

4F 



0886 

52 

20 

4D 

4F 

44 



0B8B 

45 







0B8C 

OD 

OA 




FCB 

CR, LF 

0B8E 

31 

20 3D 

20 

34 

FCC 

"1 = 4/CCW" 

0B93 

2F 

43 

43 

57 




0B97 

OD 

OA 




FCB 

CR, LF 

0B99 

32 

20 

3D 

20 

36 

FCC 

"2 = 6/CCW" 

0B9E 

2F 

43 

43 

57 




0BA2 

OD 

OA 




FCB 

CR, LF 

0BA4 

33 

20 

3D 

20 

38 

FCC 

"3 = 8/CCW" 

0BA9 

2F 

43 

43 

57 




OBAD 

OD 

OA 




FCB 

CR, LF 

OBAF 

34 

20 

3D 

20 

31 

FCC 

"4 - 10/CCW" 

0BB4 

30 

2F 

43 

43 

57 



0BB9 

OD 

OA 




FCB 

CR, LF 

OBBB 

35 

20 

3D 

20 

31 

FCC 

"5 - 12/CCW" 

OBCO 

32 

2F 

43 

43 

57 



0BC5 

OD 

OA 




FCB 

CR, LF 

0BC7 

36 

20 

3D 

20 

31 

FCC 

"6 = 14/CCW" 

OBCC 

34 

2F 

43 

43 

57 



0BD1 

OD 

OA 




FCB 

CR, LF 

0BD3 

37 

20 

3D 

20 

31 

FCC 

"7 = 16/CCW" 

0BD8 

36 

2F 

43 

43 

57 



OBDD 

OD 

OA 




FCB 

CR,LF 


PAG 



Tue May 1 1990 00:30 


Page 41 


AMPR 


1772 

OBDF 

38 

20 

3D 

20 

34 

FCC 

"8 = 4/CW” 


0BE4 

2F 

43 

57 





1773 

0BE7 

OD 

OA 




FCB 

CR,LF 

1774 

0BE9 

39 

20 

3D 

20 36 

FCC 

"9 = 6/CW" 


OBEE 

2F 

43 

57 





1775 

OBF 1 

OD 

OA 




FCB 

CR,LF 

1776 

0BF3 

41 

20 

3D 

20 

38 

FCC 

"A = 8/CW" 


0BF8 

2F 

43 

57 





1777 

OBFB 

OD 

OA 




FCB 

CR.LF 

1778 

OBFD 

42 

20 

3D 

20 

31 

FCC 

”B = 10/CW” 


0C02 

30 

2F 

43 

57 




1779 

0C06 

OD 

OA 




FCB 

CR.LF 

1780 

0C08 

43 

20 

3D 

20 

41 

FCC 

"C = ACQUIRE STARING NADIR 


OCOD 

43 

51 

55 

49 

52 




0C12 

45 

20 

53 

54 

41 




0C17 

52 

49 

4E 

47 

20 




0C1C 

4E 

41 

44 

49 

52 



1781 

0C21 

OD 

OA 




FCB 

CR, LF 

1782 

0C23 

44 

20 

3D 

20 

31 

FCC 

"D = lKHz ON PORT A BIT 7” 


0C28 

4B 

48 

7A 

20 

4F 




0C2D 

4E 

20 

50 

4F 

52 




0C32 

54 

20 

41 

20 

42 




0C37 

49 

54 

20 

37 




1783 

0C3B 

OD 

OA 




FCB 

CR,LF 

1784 

0C3D 

45 

20 

3D 

20 

4D 

FCC 

"E = MOTOR STEP TEST" 


0C42 

4F 

54 

4F 

52 

20 




0C47 

53 

54 

45 

50 

20 




0C4C 

54 

45 

53 

54 




1785 

0C50 

OD 

OA 




FCB 

CR, LF 

1786 

0C52 

46 

20 

3D 

20 

50 

FCC 

"F = PORT A TEST” 


0C57 

4F 

52 

54 

20 

41 




0C5C 

20 

54 

45 

53 

54 



1787 

0C61 

OD 

OA 03 



FCB 

CR, LF,ETX 


1788 

1789 
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1790 



***************************************************************** 

1791 



* 



MONITOR MENU AND MESSAGES 

1792 



* 




1793 







1794 

0C64 

OD OA OD OA 

MENU 

FC8 

CR,LF,CR,LF 

1795 

0C68 

57 09 57 49 4E 


FCC 

n w 

WINDINGS (ON/OFF)" 


0C6D 

44 49 4E 47 53 






OC72 

20 20 28 4F 4E 






0C77 

2F 4F 46 46 29 





1796 

0C7C 

OD OA 


FCB 

CR, LF 


1797 

0C7E 

44 09 44 49 52 


FCC 

"D 

DIRECTION (CW/CCW)" 


0C83 

45 43 54 49 4F 






0C88 

4E 20 20 28 43 






0C8D 

57 2F 43 43 57 






0C92 

29 





1798 

0C93 

OD OA OD OA 


FCB 

CR, IF, 

,CR,LF 

1799 

0C97 

50 09 53 54 45 


FCC 

"P 

STEP PULSE" 


0C9C 

50 20 50 55 4C 






0CA1 

53 45 





1800 

0CA3 

OD OA 


FCB 

CR, LF 


1801 

OCAS 

48 09 47 4F 20 


FCC 

"H 

GO TO HOT LOAD" 


OCAA 

54 4F 20 48 4F 






OCAF 

54 20 4C 4F 41 






0CB4 

44 





1802 

0CB5 

OD OA 


FCB 

CR, LF 


1803 

0CB7 

43 09 47 4F 20 


FCC 

"C 

GO TO COLD LOAD” 


OCBC 

54 4F 20 43 4F 






0CC1 

4C 44 20 4C 4F 






0CC6 

41 44 





1804 

0CC8 

OD OA 


FCB 

CR, LF 


1805 

OCCA 

52 09 52 45 54 


FCC 

"R 

RETURN TO SCAN START POSITION" 


OCCF 

55 52 4E 20 54 






0CD4 

4F 20 53 43 41 






0CD9 

4E 20 53 54 41 






OCDE 

52 54 20 50 4F 






0CE3 

53 49 54 49 4F 






0CE8 

4E 





1806 

0CE9 

OD OA 


FCB 

CR, LF 


1807 

OCEB 

45 09 45 4E 43 


FCC 

"E 

ENCODER POSITION" 


OCFO 

4F 44 45 52 20 






0CF5 

50 4F 53 49 54 






OCFA 

49 4F 4E 





1808 

OCFD 

OD OA OD OA 


FCB 

CR, LF,CR, LF 

1809 

ODO 1 

49 09 49 4E 54 


FCC 

"I 

INTEGRATE (DUMP/ INTEGRATE )" 


0D06 

45 47 52 41 54 






ODOB 

45 20 20 28 44 






0D10 

55 4D 50 2F 49 






0D15 

4E 54 45 47 52 






001 A 

41 54 45 29 





1810 

0D1E 

OD OA 


FCB 

CR, LF 


1811 

0020 

53 09 53 41 4D 


FCC 

"S 

SAMPLE (SAMPLE/HOLD)" 


OD25 

50 4C 45 20 20 






0D2A 

28 53 41 4D 50 






0D2F 

4C 45 2F 48 4F 






0D34 

4C 44 29 





1812 

0D37 

OD OA 


FCB 

CR, LF 
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1814 

0D39 

56 

09 

44 

41 

54 

ECC 

"V 

DATA VALID (LOW/HIGH)" 


0D3E 

41 

20 

56 

41 

4C 





0043 

49 

44 

20 

20 

28 





0D48 

4C 

4F 

57 

2F 

48 





0D4D 

49 

47 

48 

29 





1815 

0051 

OD 

OA 

OD 

OA 


FCB 

CR.LF.CR.LF 

1816 

0D55 

47 

09 

47 

45 

54 

FCC 

"G 

GET DATA AT CURRENT POSITION” 


0D5A 

20 

44 

41 

54 

4] 





0D5F 

20 

41 

54 

20 

43 





0D64 

55 

52 

52 

45 

4E 





0D69 

54 

20 

50 

4F 

53 





0D6E 

49 

54 

49 

4F 

4E 




1817 

0D73 

OD 

OA 




ECB 

CR, LF 


1818 

0D75 

4E 

09 

4E 

45 

57 

FCC 

H N 

NEW # SCANS PER CALIBRATE: 0-F (HEX)” 


0D7A 

20 

23 

20 

53 

43 





0D7F 

41 

4E 

53 

20 

50 





0D84 

45 

52 

20 

43 

41 





0D89 

4C 

49 

42 

52 

41 





0D8E 

54 

45 

3A 

20 

30 





0D93 

2D 

46 

20 

28 

48 





0D98 

45 

58 

29 






1819 

0D9B 

OD 

OA 




FCB 

CR, LF 


1820 

0D9D 

41 

09 

41 

43 

51 

FCC 

"A 

ACQUIRE DATA FOR ONE SCAN/CALIBRATE CYCLE” 


0DA2 

55 

49 

52 

45 

20 





0DA7 

44 

41 

54 

41 

20 





ODAC 

46 

4F 

52 

20 

4F 





0DB1 

4E 

45 

20 

53 

43 





0DB6 

41 

4E 

2F 

43 

41 





ODBB 

4C 

49 

42 

52 

41 





ODCO 

54 

45 

20 

43 

59 





0DC5 

43 

4C 

45 






1821 

0DC8 

OD 

OA 

OD 

OA 


FCB 

CR,LF,CR f LF 

1822 

ODCC 

4C 

09 

4C 

49 

53 

FCC 

"L 

LIST CURRENT AHPR STATUS" 


ODDI 

54 

20 

43 

55 

52 





0DD6 

52 

45 

4E 

54 

20 





ODDB 

41 

4D 

50 

52 

20 





ODEO 

53 

54 

41 

54 

55 





ODES 

53 








1823 

0DE6 

OD 

OA 




FCB 

CR,LF 


1824 

0DE8 

4D 

09 

45 

58 

49 

FCC 

"M 

EXIT MODE: 0-F (HEX)" 


ODED 

54 

20 

4D 

4F 

44 





0DF2 

45 

3A 

20 

30 

2D 





0DF7 

46 

20 

28 

48 

45 





ODFC 

58 

29 







1825 

ODFE 

OD 

OA 




FCB 

CR, LF 


1826 

OEOO 

58 

09 

45 

58 

49 

ECC 

"X 

EXIT TO NEXT MODE" 


0E05 

54 

20 

54 

4F 

20 





OEOA 

4E 

45 

58 

54 

20 





OEOF 

4D 

4F 

44 

45 





1827 

0E13 

OD 

OA 




FCB 

CR, LF 


1828 

0E15 

3F 

09 

4D 

4F 

4E HELP 

FCC 

"? 

MONITOR COMMAND MENU" 


0E1A 

49 

54 

4F 

52 

20 





0E1F 

43 

4F 

4D 

4D 

41 





0E24 

4E 

44 

20 

4D 

45 





0E29 

4E 

55 







1829 

0E2B 

OD 

OA 




FCB 

CR, LF 
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1831 

0E2D 

OD 

OA 




PROMPT 

FCB 

1832 

OF 2F 

57 

2C 

44 

2C 

50 


FCC 


0E34 

2C 

48 

2C 

43 

2C 




0E39 

52 

2C 

49 

2C 

53 




0E3E 

2C 

56 

2C 

47 

2C 




0E43 

4E 

2C 

41 

2C 

4C 




0E48 

2C 

4D 

2C 

58 

2C 




0E4D 

3F 

20 

20 

3D 

3D 




OE52 

3E 

20 






1833 

0E54 

03 






FCB 

1834 

0E55 

OD 

OA 

OD 

OA 


CV 

FCB 

1835 

0E59 

53 

54 

41 

54 

55 


FCC 


0E5E 

53 

3A 

20 





1836 

0E61 

28 

56 

34 

2E 

30 

VER 

FCC 


0E66 

35 

29 






1837 

0E68 

OD 

OA 




NL2MSG 

FCB 

1838 

0E6A 

OD 

OA 

03 



NLMSG 

FCB 

1839 

0E6D 

53 

41 

4D 

50 

4C 

SMSG 

FCC 


0E72 

45 







1840 

0E73 

OD 

OA 

03 




FCB 

1841 

0E76 

48 

4F 

4C 

44 


HMSG 

FCC 

1842 

0E7A 

OD 

OA 

03 




FCB 

1843 

0E7D 

49 

4E 

54 

45 

47 

IMSG 

FCC 


0E82 

52 

41 

54 

45 




1844 

0E86 

OD 

OA 

03 




FCB 

1845 

0E89 

44 

55 

4D 

50 


DMSG 

FCC 

1846 

0E8D 

OD 

OA 

03 




FCB 

1847 

0E90 

57 

49 

4E 

44 

49 

WBMSG 

FCC 


0E95 

4E 

47 

53 

20 

4F 



1848 

0E9A 

03 






FCB 

1849 

0E9B 

4E 





WNMSG 

FCC 

1850 

0E9C 

OD 

OA 

03 




FCB 

1851 

0E9F 

46 

46 




WFMSG 

FCC 

1852 

0EA1 

OD 

OA 

03 




FCB 

1853 

0EA4 

43 

4F 

55 

4E 

54 

CCWMSG 

FCC 


0EA9 

45 

52 






1854 

OEAB 

43 

4C 

4F 

43 

4B 

CWMSG 

FCC 


OEBO 

57 

49 

53 

45 




1855 

0EB4 

OD 

OA 

03 




FCB 

1856 

0EB7 

44 

41 

54 

41 

20 

VBMSG 

FCC 


OEBC 

56 

41 

4C 

49 

44 




0EC1 

3D 







1857 

0EC2 

03 






FCB 

1858 

0EC3 

4C 

4F 

57 



NVMSG 

FCC 

1859 

0EC6 

OD 

OA 

03 




FCB 

1860 

0EC9 

48 

49 

47 

48 


VMSG 

FCC 

1861 

OECD 

OD 

OA 

03 




FCB 

1862 

OEDO 

3F 





NPMSG 

FCC 

1863 

0ED1 

20 

3D 

20 

4D 

4F 

POSMSG 

FCC 


0ED6 

54 

4F 

52 

20 

50 




OEDB 

4F 

53 

49 

54 

49 




OEFO 

4F 

4E 






1864 

0EE2 

OD 

OA 

03 




FCB 

1865 

0EE5 

20 

3D 

20 

45 

58 

XMSG 

FCC 


OEEA 

49 

54 

20 

4D 

4F 




OEEF 

44 

45 






1866 

0EF1 

OD 

OA 

03 




FCB 


CR,LF 

,, W f D l P l H f C l R,I,S f V,G,N I A l L l M l X,? ==> " 


ETX END OF MENU 
CR,LF,CR,LF 
"STATUS: " 

" (V4.05) " 

cr.lf 

CR, LF.ETX 
"SAMPLE” 

CR, LF.ETX 
"HOLD" 

CR, LF.ETX 
"INTEGRATE" 

CR, LF.ETX 
"DUMP" 

CR, LF,ETX 
"WINDINGS 0" 

ETX 

"N" 

CR, LF,ETX 
"FF" 

CR, LF,ETX 
"COUNTER" 

"CLOCKWISE" 

CR, LF r ETX 
"DATA VALID*" 


ETX 

"LOW" 

CR,LF,ETX 

"HIGH" 

CR, LF,ETX 

" = MOTOR POSITION” 


CR, LF,ETX 
" = EXIT MODE” 


CR, LF.ETX 
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1867 


1868 

1869 

1870 

1871 


1872 

1873 

1874 

1875 

1876 


1877 

1878 


1879 

1880 


1881 

1882 


AMPR 


0EF4 

20 

49 

53 

20 

23 

SPCMSG 

FCC 

0EF9 

20 

53 

43 

41 

4E 



OEFE 

53 

2F 

43 

41 

4C 



0F03 

49 

42 

52 

41 

54 



OF 08 

45 







0F09 

OD 

OA 

03 




FCB 

OFOC 

48 

4F 

54 

20 

4C 

HLMSG 

FCC 

0 F 1 1 

4F 

41 

44 

3B 

20 



0F16 

03 






FCB 

0F17 

43 

4F 

4C 

44 

20 

CLMSG 

FCC 

0F1C 

4C 

4F 

41 

44 

3B 



0F2 1 

20 







0F22 

03 






FCB 

0F23 

49 

4E 

44 

45 

58 

NXMSG 

FCC 

0F28 

3B 

20 






0F2A 

03 






FCB 

0F2B 

OD 

OA 




HXMSG 

FCB 

0F2D 

4E 

45 

57 

20 

56 


FCC 

0F32 

41 

4C 

55 

45 

20 



OF37 

28 

48 

45 

58 

3A 



0F3C 

20 

30 

2D 

46 

29 



0F41 

20 

3D 

3D 

3E 

20 



0F46 

03 






FCB 

0F47 

50 

52 

45 

53 

53 

KPMSG 

FCC 

0F4C 

20 

41 

20 

4B 

45 



0F51 

59 







0F52 

OD 

OA 

03 




FCB 

0F55 

44 

54 

52 

20 

4E 

HEYYOU 

FCC 

0F5A 

4F 

54 

20 

44 

45 



0F5F 

54 

45 

43 

54 

45 



0F64 

44 

2E 

20 

20 

50 



0F69 

52 

45 

53 

53 

20 



0F6E 

52 

45 

54 

55 

52 



0T73 

4E 

20 

49 

46 

20 



0F78 

52 

53 

2D 

32 

33 



0F7D 

32 

20 

49 

53 

20 



0F82 

41 

54 

54 

41 

43 



0F87 

48 

45 

44 

2E 




0F8B 

OD 

OA 

07 

03 



FCB 


PAG 


’’ IS # SCANS/CALIBRATE" 


CR, LF # ETX 
’’HOT LOAD; " 

ETX 

’’COLD LOAD; ” 


ETX 

"INDEX; ” 

ETX 

CR,LF 

"NEW VALUE (HEX: 0-F) ==> " 


ETX 

"PRESS A KEY" 


CR, LF, ETX 

"DTR NOT DETECTED. PRESS RETURN IF RS-232 IS ATTACHED." 


CR,LF,BEL,ETX 
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1883 







*************************************************************** 

1884 







* 

COPYRIGHT 

1885 









1886 

0F8F 

28 

43 

29 

31 

39 

AUTHOR FCC 

"(0)1989, 1990 MICHAEL L. BLYLER" 


0F94 

38 

39 

2C 

20 

31 




0F99 

39 

39 

30 

20 

20 




0F9E 

20 

4D 

49 

43 

48 




0FA3 

41 

45 

4C 

20 

4C 




0FA8 

2E 

20 

42 

4C 

59 




OFAD 

4C 

45 

52 





1887 

OFBO 

20 

47 

45 

4F 

52 

FCC 

" GEORGIA TECH RESEARCH INSTITUTE " 


0FB5 

47 

49 

41 

20 

54 




OFBA 

45 

43 

48 

20 

52 




OFBF 

45 

53 

45 

41 

52 




0FC4 

43 

48 

20 

49 

4E 




0FC9 

53 

54 

49 

54 

55 




OFCE 

54 

45 

20 





1888 

0FD1 

56 

45 

52 

53 

49 

FCC 

"VERSION 4.06 4/30/90" 


0FD6 

4F 

4E 

20 

34 

2E 




OFDB 

30 

36 

20 

34 

2F 




OFEO 

33 

30 

2F 

39 

30 




1889 





1890 



*************************************************************** 

1891 



* 

OPTION REGISTER 

1892 



* 


1893 





1894 

1FDF 


ORG 

OPTION SECURITY FEATURE ENABLED 

1895 





1896 

1FDF 

00 

FCB 

$00 

1897 





1898 



******************************** ******************************* 

1899 



* 

VECTORS 

1900 



* 


1901 

1FF4 


ORG 

VECTOR 

1902 





1903 

1FF4 

0B47 

FDB 

SPIRQ 

1904 

1FF6 

0B48 

FDB 

SC IRQ 

1905 

1FF8 

0B51 

FDB 

TIRQ 

1906 

1FFA 

0B4A 

FDB 

IRQ 

1907 

1FFC 

0B49 

FDB 

SWI 

1908 

1FFE 

045E 

FDB 

RESET RESET/POWER UP 

1909 

2000 


END 
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Defined 


Symbol Name 

Value 


177 

A1 


0060 

845 

178 

A2 


0061 

1553 

179 

A3 


0062 


180 

A4 


0063 


1588 

ACQ 


0AD8 

492 

1590 

ACQL 


OADC 

1596 

166 

AL00P 


0055 

1589 

43 

ALTH 


= 001A 

1422 

44 

ALTL 


« 001B 

1427 

489 

ASUB 


055E 

281 

496 

ASUB1 


0567 

945 

501 

ASUB2 


0572 

498 

1886 

AUTHOR 


0F8F 


65 

AWO 


= 0003 

336 

30 

BAUD 


= OOOD 

350 

138 

BEL 


= 0007 

1881 

1265 

CAL 


091C 

505 

67 

ccw 


= 0002 

532 

1853 

CCWMSG 


0EA4 

534 

1871 

CLMSG 


0F17 

693 

Pre 

CODE 


0050 

147 

523 

COLD 


0590 

520 

47 

COPCR 


- 001E 

387 

46 

COPRR 


= 001D 

1234 

135 

CR 


= OOOD 

432 





1768 





1794 





1812 





1831 





1855 

518 

CS1 


0586 

516 

515 

CSUB 


057F 

282 

224 

CTABLE 


0200 


923 

CUR1 


07A3 

923 

927 

CURIO 


07AB 

922 

920 

CURSUB 


079C 

535 





646 





694 





831 

1834 

CV 


0E55 

534 





648 





698 





834 

66 

cw 


= 0002 

335 

1854 

CWMSG 


OEAB 

537 

Pre 

DATA 


0000 


536 

DCW 


059B 

532 

26 

DDRA 


= 0004 

327 

27 

DDRB 


= 0005 

328 

28 

DDRC 


= 0006 

329 

174 

DEST 


005D 

1293 

617 

DMP 


05FC 

613 

1845 

DMSG 


0E89 

618 

532 

DSUB 


0591 

283 

86 

DTR 


= 0007 

420 

64 

DUMP 


= 0004 

338 

164 

EOS 


0053 

359 


References 

873 

1574 


1267 1270 
1595 

1440 1669 
1443 1685 
944 


419 

632 

828 

829 

832 

1470 

1471 



1102 









533 

638 

1290 

1350 

1513 





642 









159 

190 

220 

247 

274 

1894 

1901 



389 









1236 

1436 

1438 

1484 

1486 

1592 

1594 

1737 

1739 

1752 

1752 

1754 

1754 

1756 

1758 

1760 

1762 

1764 

1770 

1773 

1775 

1777 

1779 

1781 

1783 

1785 

1787 

1796 

1798 

1798 

1800 

1802 

1804 

1806 

1808 

1808 

1815 

1815 

1817 

1819 

1821 

1821 

1823 

1825 

1827 

1834 

1834 

1837 

1838 

1840 

1842 

1844 

1846 

1850 

1859 

1861 

1864 

1866 

1868 

1875 

1879 

1881 


1268 










538 

552 

616 

619 

629 

631 

634 

637 

640 

649 

652 

655 

657 

660 

663 

667 

671 

685 

699 

703 

722 

739 

795 

798 

809 

813 

816 

835 

926 

1142 

1720 






537 

551 

615 

618 

630 

633 

636 

639 

642 

651 

654 

656 

659 

662 

666 

670 

684 

688 

702 

721 

738 

794 

797 

808 

812 

815 

826 

920 

1141 

1719 







536 

781 

1254 

1288 

1347 

1348 

1510 

1518 

1531 

639 










1315 1330 1343 1374 1400 

645 


1766 

1794 

1810 

1829 

1852 


643 

689 

827 

645 

693 

830 

1612 


463 585 

1240 


617 


1237 
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Defined 


Symbol Name 

Value 


45 

EPROG 


= 001C 


139 

ESC 


= 001B 

1106 

548 

ESUB 


05A2 

284 

137 

ETX 


= 0003 

424 





1846 





1870 

173 

FLAG 


005C 

331 





1022 





1307 

197 

FTABLE 


0100 


175 

FUDGE 


005E 

1505 

1553 

GETPOS 


OABO 

548 

1555 

GPO 


0AB4 

1562 

1571 

GP1 


OADO 

1567 

170 

GSTEP 


0059 

1094 

565 

GSUB 


05B5 

285 

69 

HBYTE 


« 0000 

342 

41 

HCOUNT 


* 0018 


905 

HECHO 


0796 

897 

1828 

HELP 


0E15 


898 

HEX2 


0789 

895 

888 

HEXIN 


0775 

723 

1880 

HEYYOU 


0F55 

423 

186 

HFETCH 


006C 

364 

796 

HLD 


0705 

792 

1869 

HLMSG 


OFOC 

698 

1841 

HMSG 


0E76 

651 

62 

HOLD 


= 0005 

340 

603 

HOT 


05F1 

600 

128 

HS 


« 0006 

334 

598 

HS1 


05E7 

596 

595 

HSUB 


05E0 

286 

1875 

HXMSG 


0F2B 

721 

107 

ICF 


= 0007 

1614 

99 

ICIE 


= 0007 

1608 

37 

ICRH 


« 0014 


38 

ICRL 


= 0015 

1610 

102 

IEDG 


- 0001 

1611 

1843 

I MSG 


0E7D 

615 

127 

INDEX 


- 0007 

331 

63 

INT 


= 0004 

565 

1719 

IRQ 


0B4A 

1906 

1721 

IRQ1 


0B4F 

1721 

123 

IRQL 


= 0001 


613 

I SUB 


05F2 

287 

280 

JTABLE 


0400 

472 

1878 

KPMSG 


0F47 

1141 

422 

LO 


04E6 

422 

429 

LOO 


04F5 

425 

435 

LI 


0501 

439 

436 

LI 1 


0504 

436 

440 

L12 


050C 

446 

443 

L13 


0513 

443 

447 

L2 


051B 

442 

466 

L25 


0540 

454 

474 

L3 


054F 

474 

70 

LBYTE 


= 0000 

1558 


References 


553 


441 

476 

715 

921 

1787 

1833 

1838 

1840 

1842 

1844 

1848 

1850 

1852 

1855 

1857 

1859 

1861 

1864 

1866 

1868 

1872 

1874 

1877 

1879 

1881 






332 

333 

334 

498 

956 

967 

978 

989 

1000 

1011 

1035 

1036 

1047 

1048 

1059 

1060 

1071 

1072 

1249 

1304 

1309 

1555 

1562 

1616 

1742 






1515 

1517 









775 

1145 

1149 

1238 

1353 

1489 

1506 





1569 

1096 

1095 1166 1590 

1561 

905 


740 

888 

893 

900 

902 

366 

370 

374 

496 

499 

797 

462 

583 

796 

1231 


498 

1036 

1048 

1060 

1072 


1265 

738 

1740 

1621 


1615 

1741 



1620 

1743 

1744 

1746 

648 




1555 

1562 

1616 

1742 

613 

614 

644 

1185 


428 

429 


447 477 

480 
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Defined 


Symbol Name 

Value 


42 

LCOUNT 


= 0019 

1735 

638 

LD 


06 IB 

635 

642 

LDCCW 


0625 

638 

136 

IF 


= OOOA 

1752 





1770 





1796 





1815 





1834 





1859 

185 

LFETCH 


0068 

363 

644 

LI 


062A 

641 

648 

LINT 


0634 

644 

664 

LN 


065C 

661 

682 

LPOS 


0670 

756 

686 

LPOSO 


0679 

683 

691 

LPOS1 


0684 

687 

696 

LPOS2 


068F 

692 

700 

LP0S3 


0698 

690 

650 

LS 


0639 

647 

654 

LSS 


0643 

650 

628 

LSUB 


0603 

288 

656 

LV 


0648 

653 

662 

LVAL 


0657 

658 

630 

LW 


0607 


636 

LWF 


0616 

632 

668 

LX 


0666 


1087 

M12A 


0824 

1107 

1092 

M12B 


082D 

1101 

1095 

M12C 


0833 

1097 

1141 

M14 


0867 

1153 

1143 

M14A 


086C 

1143 

1166 

M15 


0887 

1168 

1794 

MENU 


0C64 

435 

419 

MODEO 


04E0 

301 

954 

M0DE1 


07B6 

302 

1057 

MODE 10 


080B 

311 

1069 

MODE 11 


0816 

312 

1086 

MODE 12 


0821 

313 

1117 

MODE 13 


0852 

314 

1140 

MODE 14 


0864 

315 

1165 

MODE 15 


0885 

316 

965 

MODE 2 


07BF 

303 

976 

MODE 3 


07C8 

304 

987 

MODE 4 


07D1 

305 

998 

MODE 5 


07DA 

306 

1009 

MODE 6 


07E3 

307 

1020 

M0DE7 


07EC 

308 

1033 

M0DE8 


07F5 

309 

1045 

M0DE9 


0800 

310 

1752 

MODES 


0B70 

714 

434 

MON 


0500 

420 

1288 

MOVE 


0930 

522 

172 

MPREV 


005B 

1301 

714 

MSI 


06A3 

720 

717 

MS2 


06AA 

717 

721 

MS3 


06B2 

716 

171 

MSC 


005A 

330 


References 


1752 

1754 

1754 

1756 

1758 

1760 

1762 

1764 

1766 

1768 

1773 

1775 

1777 

1779 

1781 

1783 

1785 

1787 

1794 

1794 

1798 

1798 

1800 

1802 

1804 

1806 

1808 

1808 

1810 

1812 

1815 

1817 

1819 

1821 

1821 

1823 

1825 

1827 

1829 

1831 

1834 

1837 

1838 

1840 

1842 

1844 

1846 

1850 

1852 

1855 

1861 

1864 

1866 

1868 

1875 

1879 

1881 




368 

371 

373 

497 

o 

o 

t_n 

504 

1426 





695 697 


440 

433 1108 


1103 

1125 


451 

602 

1318 

467 

778 

1320 

469 

1089 

1333 

1148 

1335 

1152 

1376 

1253 

1403 

1405 

1310 

1313 

1325 

1328 

1369 

1372 

1377 1395 1398 1406 
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Defined 


Symbol Name 


Value 

1474 

945 

MSL1 



07B1 

946 

943 

MSL00P 



07AC 

957 

169 

MSTEP 



0058 

361 

713 

MSUB 



06A2 

289 

301 

MTABLE 



042E 

391 

1291 

MVO 



0936 

1289 

1298 

MV1 



0945 

1295 

1342 

MV10 



09A2 

1340 

1343 

MVll 



09A5 

1322 

1347 

MV12 



09AE 

1319 

1350 

MV13 



09B5 

1347 

1351 

MV 14 



09B7 

1346 

1353 

MV 15 



09BC 

1317 

1301 

MV2 



094C 

1299 

1308 

MV3 



0959 

1306 

1311 

MV4 



0961 

1314 

1315 

MV5 



0969 

1309 

1323 

MV6 



097B 

1297 

1325 

MV 7 



0980 

1338 

1326 

MV8 



0982 

1329 

1341 

MV9 



09A0 

1337 

1837 

NL2MSG 



0E68 


1838 

NLMSG 



0E6A 

551 

1533 

NP1 



0AA1 

1531 

1537 

NP2 



0AA9 

1534 

1540 

NP3 



OAAF 

1536 

1862 

NPMSG 



OEDO 

684 

1530 

NPOS 



0A9B 


1513 

NS2 



0A8B 

1509 

1515 

NS3 



0A90 

1512 

1516 

NS4 



0A92 

1510 

1520 

NS5 



0A9A 

1508 

1504 

NSTEP 



0A77 

1294 

738 

NSUB 



06BD 

290 

744 

NSUB1 



06CA 

742 

814 

NV 



071B 

810 

60 

NVAL 


«= 

0006 

339 

1858 

NVMSG 



0EC3 

659 

1873 

NXMSG 



0F23 

688 

108 

OCF 


- 

0006 

1439 

100 

OCIE 


- 

0006 


39 

OCRH 


= 

0016 

1423 

40 

OCRL 


= 

0017 

1434 

129 

ODD 



0001 

332 

68 

OE 


= 

0001 

343 

149 

OFFSET 



0020 

471 

103 

OLVL 


= 

0000 

1425 

116 

OPTION 


= 

1FDF 

325 

845 

0UT3 



073B 

550 

848 

0UT31 



0741 

852 

853 

OUT32 



074A 

849 

855 

OUT33 



074E 

855 

858 

0UT34 



0755 

854 

863 

0UT35 



075E 

859 

867 

0UT36 



0764 

867 

869 

0UT37 



0769 

864 


References 

1481 

968 979 990 1001 1012 1023 1037 1049 1061 

752 755 1475 

465 


1352 

1334 

1349 

1332 1345 


1303 


1538 


1513 

1518 

1316 1331 1344 1375 1401 


464 578 814 1220 

815 

1452 1693 

1430 1431 1441 1446 1448 1670 1688 1689 

1451 1692 

1304 1307 1309 

1556 1560 

1442 1671 1673 

1894 

665 669 701 


862 


869 


1073 
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Def i ned 


Symbol Name 

Value 


Pre 

PAGEO 


0000 


22 

PORTA 


= 0000 

352 





1588 

23 

PORTB 


= 0001 

335 





464 





614 





810 





1232 





1510 

24 

PORTC 


- 0002 

1557 

25 

PORTD 


= 0003 

380 

161 

POS 


0050 

353 





1146 

1863 

POSMSG 


0ED1 

702 

1831 

PROMPT 


0E2D 

475 

751 

PSUB 


06CD 

291 

1636 

PULSE 


OBOA 

337 

772 

R1 


06E4 

769 

774 

R2 


06E8 


779 

R3 


06F4 

773 

780 

R4 


06F6 

771 

114 

RAM 


= 0050 

159 

121 

RAMO 


- 0007 


122 

RAMI 


= 0006 


1392 

RAMPDN 


09E2 

1321 

1366 

RAMPUP 


09C4 

1308 

1396 

RDO 


09E8 

1409 

1400 

RD1 


09EF 


1407 

RD2 


09FE 

1399 

1412 

RD3 


0A05 

1402 

95 

RDRF 


= 0005 

429 

322 

RESET 


045E 

1908 

768 

RETURN 


06DB 

292 

1426 

RLO 


OAOE 

1424 

1439 

RL1 


0A27 

1439 

1452 

RL2 


0A42 

1452 

176 

RLEN 


005F 

1368 

1422 

RLOOP 


0A06 

1312 

115 

ROM 


- 0100 

190 

130 

RT 


- 0000 

333 





1071 

168 

RTEMP 


0057 

1428 

1370 

RUO 


09CB 

1381 

1374 

RU1 


09D2 


1378 

RU2 


09DB 

1373 

1382 

RU3 


09E1 


1185 

SCAN 


088 E 

501 

1242 

SCAN1 


0900 

1255 

1244 

SCAN2 


0904 

1241 

1256 

SCAN3 


091B 

1247 

162 

SCANS 


0051 

357 





1046 

163 

SCANUM 


0052 

780 

31 

SCCR1 


= OOOE 

346 

32 

SCCR2 


= OOOF 

348 

34 

SCI 


- 0011 

426 


889 


References 


461 

779 

1090 

1120 

1124 

1165 

1167 

1242 

1292 

1355 

1619 










336 

338 

339 

340 

341 

342 

343 

419 

462 

463 

532 

533 

536 

565 

578 

579 

583 

584 

585 

613 

617 

632 

638 

644 

650 

658 

781 

792 

793 

796 

811 

814 

828 

829 

832 

1185 

1186 

1220 

1221 

1231 

1237 

1252 

1254 

1288 

1290 

1347 

1348 

1350 

1470 

1471 

1513 

1518 

1531 

1556 

1558 

1560 

1561 

1612 



1559 










420 










460 

515 

519 

549 

595 

599 

682 

700 

768 

776 

1150 

1239 

1354 

1487 

1490 

1507 

1533 

1572 

1618 


833 

1472 

1473 









1342 






1324 






1404 






447 

553 

888 

1103 

1143 


489 

517 

597 

1086 

1140 

1271 

1380 






1327 

1371 

1397 

1411 



220 

247 

274 




956 

967 

978 

989 

1000 

1011 1022 1035 1047 1059 

1433 

1445 

1450 





1243 










664 

744 

955 

966 

977 

988 

999 

1010 

1021 

1034 

1058 

1070 

1100 

1246 







1092 

1098 

1244 

1248 







430 

437 

444 

448 

478 

554 

718 

856 

868 

871 

906 

924 

1104 

1144 
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Defined 


Symbol Name 

Value 


1702 

SC IRQ 


0B48 

1904 

33 

SCSR 


= 0010 

422 





888 

61 

SMP'L 


= 0005 

579 

1839 

SMSG 


0E6D 

654 

1867 

SPCMSG 


0EF4 

666 

29 

SPCR 


= OOOA 

344 

1701 

SPIRQ 


0B47 

1903 

792 

SSUB 


06FB 

293 

1473 

STO 


0A50 

1470 

1475 

ST1 


0A55 

1482 

1491 

ST2 


0A74 

1488 

251 

STABLE 


0300 


1469 

STEP 


0A46 

753 

1703 

SWI 


0B49 

1907 

1608 

SYNC 


OAEB 

770 

1613 

SYNC 1 


OAFS 

1614 

35 

TCR 


= 0012 

376 





1743 

94 

TDRE 


= 0007 

422 

58 

TEST 


* 0007 

341 

1740 

T10 


0B60 

1733 

1746 

Til 


0B6D 

1743 

1747 

TI2 


0B6F 

1740 

1733 

TIRQ 


0B51 

1905 

109 

TOF 


- 0005 

1734 

101 

TOIE 


* 0005 

943 

36 

TSR 


= 0013 

1432 

59 

VAL 


= 0006 

584 

1856 

VBMSG 


0EB7 

656 

117 

VECTOR 


= 1FF4 

1901 

1836 

VER 


0E61 

1719 

1860 

VMSG 


0EC9 

662 

808 

VSUB 


070C 

294 

1668 

WAIT 


0B17 

379 





1198 





1477 

1674 

WAITO 


0B22 

1672 

1679 

WAIT1 


0B2A 

1675 

1685 

WAIT2 


0B33 

1678 

1693 

WAIT3 


0B42 

1693 

1847 

WBMSG 


0E90 

630 

1851 

WFMSG 


0E9F 

636 

1849 

WNMSG 


0E9B 

633 

832 

WON 


0731 

828 

826 

WSUB 


0722 

295 

167 

WTEMP 


0056 

1686 

181 

XI 


0064 

846 

182 

X2 


0065 

1554 

183 

X3 


0066 

1504 

184 

X4 


0067 

1469 

165 

XMODE 


0054 

355 

1865 

XMSG 


0EE5 

670 

113 

ZROM 


= 0020 

147 


References 


429 

436 

443 

447 

474 

553 

717 

855 

867 

869 

905 

923 

1103 

1143 







650 

792 

793 

1221 







794 











1300 

1351 

1613 







943 

1744 

1425 

1746 

1442 

1608 

1611 

1620 

1621 

1671 

1673 1733 

436 

1186 

1734 

443 

1252 

474 

717 

855 

867 

869 

905 

923 


1733 

1439 

658 

808 

1449 

810 

1452 

811 

1609 

1232 

1614 

1690 

1693 

1734 

1740 


812 

568 

571 

574 

577 

582 

1119 

1123 

1189 

1192 

1195 

1201 

1480 

1204 

1638 

1207 

1641 

1210 

1213 

1216 

1219 

1224 

1227 

1230 


1682 

826 

830 

834 


1691 

872 

1573 

1516 

1491 

455 668 724 
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AMPR SPARE PARTS LIST FOR VENDOR SUPPLIED ITEMS 
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UPPER Q-BAY PACKAGE . msfC 

(AMPR POWER SUPPLIES) P7 | ^ POWER 



Figure D1. AMPR/ER-2 Cable Interconnect Diagram 











TABLE Dl. AMPR INTERCONNECT CABLE DESIGNATIONS AND PART NUMBERS 


Cable End Box End 


Function 

Desia. 

Part No. 

Desia. 

Part No. 

A/C power 

(Jl) 

PT06CE-22-21S 

(PI) 

PT02SE-22-21P 

Analog 

(P2) 

MS3 126F22-55P 

(J2) 

MS3 120F22-55S 

Temp. Cont. 

(J3) 

L JT06RT- 15-35S 

(P3) 

LJT02RE-15-35P 

Seem Pwi. 

(P4) 

L JT06RT- 15- 18P 

(J4) 

LJT07RT- 15- 18S 

Scan Sig. 

(P5) 

PT06SE- 16-26P 

(J5) 

PT07CE- 16-26S 

MSFC Sig. 

(J6) 

MS3 126F22-55S 

(P6) 

MS3 122E22-55P 

MSFC Pwi. 

(P7) 

L JT06RT- 17-26P 

(J7) 

L JT07RT- 17-26S 



TABLE D2. ANALOG SIGNAL J2(AR) PIN DESIGNATIONS 


Pin Desicmation 

Pin 

Desicmation 

A 

+ 12 Vdc T p OW er supply GDO 

h 

NC 

B 

+ 12 Vdc return ~ 

i 

NC 

C 

+ 5.4 Vdc \ 85 5 GDO monitor 

i 

NC 

D 

+ 5.4 Vdc return^ 

k 

NC 

E 

NC 

1 

NC 

F 

NC 

n 

NC 

G 

+4 Vdc 37.1 GDO monitor 

B 

NC 

H 

+ 4 Vdc return 

a 

NC 

J 

NC 

r 

NC 

K 

NC 

s 

Sample/hold input (high) 

L 

+7 Vdc -) 19 35 GDO monitor 

t 

Sample/hold input (low) 

M 

+7 Vdc return 

u 

NC 

N 

+ 15 Vdc —v 

V 

Integrate/dump input (high) 

P 

-15 Vdc W Analog power supply 

w 

Integrate/dump input (low) 

R 

Return — * 

X 

NC 

S 

+ 15 Vdc —v 

Y 

NC 

T 

-15 Vdc Power supply monitor 

z 

NC 

U 

Return — / 

AA 

NC 

V 

10.7 GHz data (high) 

BB 

NC 

W 

10.7 GHz data (low) 

CC 

NC 

X 

10.7 GHz data (shield) 

DD 

NC 

Y 

19.35 GHz data (high) 

EE 

NC 

Z 

19.35 GHz data (low) 

FF 

NC 

a 

19.35 GHz data (shield) 

GG 

NC 

b 

37.1 GHz data (high) 

HH 

Chassis ground 

c 

37.1 GHz data (low) 



d 

37.1 GHz data (shield) 



e 

85.5 GHz data (high) 



f 

85.5 GHz data (low) 



S 

85.5 GHz data (shield) 






15 Hot load temperature multiplexer (high) 

16 Hot load temperature multiplexer (low) 

17 Hot load temperature multiplexer (shield) 

18 Cold load temperature multiplexer (high) 

19 Cold load temperature multiplexer (low) 

20 Cold load temperature multiplexer (shield) 

21 NC 


22 NC 

23 NC 

24 Hot/cold load multiplexer select bit 0 (LSB) 

25 Hot/cold load multiplexer select bit 1 

26 Hot/cold load multiplexer select bit 2 

27 Hot/cold load multiplexer select bit 3 (MSB) 

28 NC 


29 NC 



TABLE D4. SCAN POWER J4(AR) PIN DESIGNATIONS 


Pin 


Desicmation 

A 

+28 Vdc } 


B 

+28 Vdc V 

( 

^ Scanner power supply 

C 

+28 Vdc return \ 


D 

+28 Vdc return — 

1 

E 

+28 Vdc >■ 

“ Power supply monitor 

F 

NC 


G 

+ 5 Vdc -1 

Digital power supply 

H 

+5 Vdc return J 


J 

+5 Vdc -) 

Power supply monitor 

K 

+5 Vdc return J 


L 

NC 


M 

NC 


N 

NC 


P 

NC 


R 

NC 


S 

NC 


T 

NC 


U 

NC 




TABLE D5. SCAN SIGNAL P5(AR) PIN DESIGNATIONS 

Pin Designation 

A Data valid out (high) 

B Data valid out (low) 

C Scan mode select bit 0 (LSB) 

D Scan mode select bit 1 

E Scan mode select bit 2 

F Scan position data bit 0 (LSB) 

G Scan position data bit 1 

H Scan position data bit 2 

J Scan position data bit 3 

K Scan position data bit 4 

L Scan position data bit 5 

M Scan position data bit 6 

N Scan position data bit 7 (MSB) 

P Integrate/dump out (high) 

R Integrate/dump out (low) 

S Sample/hold out (high) 

T Sample/hold out (low) 

U Scan mode select ground 

V Scan mode select bit 3 (MSB) 

W NC 

X NC 

Y NC 

Z NC 

a NC 

b NC 


c 


NC 



